ADEPT -—— A HEURISTIC PROGRAM 
FOR PROVING THEOREMS OF GROUP THEORY 


by 
LEWIS MARK NORTON 


S.B., Massachusetts Institute of Technology 
(1962) 


SUBMITTED IN PARTIAL FULFILLMENT 
OF THE REQUIREMENTS FOR THE 
DEGREE OF DOCTOR OF 
PHILOSOPHY 


at the 


MASSACHUSETTS INSTITUTE OF 
TECHNOLOGY 


September, 1966 


Signature of EN a fo 
Department of Mathematics, August 22, 1966 
o s 
Certified by ccceeeee Wallin: 


Accepted byeecsesesnlf | AWA. 


Thesis Supervisor 


Chairman, Departmental Committee > 
on Graduate Students 


ADEPT —— A HEURISTIC PROGRAM 


FOR PROVING THEOREMS OF GROUP THEORY 
by 
Lewis Mark Norton 
Submitted to the Department of Mathematics on August 22, 1966 in partial 


fulfillment of the requirement for the degree of Doctor of Philosophy. 


ABSTRACT 


A computer program, named ADEPT (A Distinctly Empirical Prover of Theorems), 
has been written which proves theorems taken from the abstract theory of 


‘groups. Its organization is basically heuristic, incorporating many of the 


techniques of the human mathematitian in a "natural" way. This program has 
proved almost 100 theorems, as well as serving as a vehicle for testing and 
evaluating special-purpose heuristics. A detailed description of the program 
is supplemented by accounts of its performance on a number of theorems, thus 
providing many insights into the particular problems inherent in the design 
of a procedure capable of proving a variety of theorems from this domain. 
Suggestions have been formulated for further efforts along these lines, and 
comparisons with related work previously reported in the literature have been 
made. 
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CHAPTER I 


INTRODUCTION 


Since its earliest days, research on artificial intelligence has been 
concerned with the mechanization of theorem-proving. Investigators have ap- 
proached the problem from two directions, combinatorial and heuristic. Pro- 
grams have been constructed which operate in an essentially combinatorial 
manner on statements of the predicate calculus. Due to the work of Herbrand 
and Gentzen, it was known how to describe a procedure, completely mechanical 
in nature; that would be able to prove every "provable" theorem, sooner or 
later. Here the word "provable" is used in its technical sense, and the 
reader may refer to any book on symbolic logic. A proof procedure such as 
Herbrand's is known as a complete proof procedure, and in the early days of 
digital computers it was not universally appreciated that even the large 
speed and memory of the computer would not sittiée to make implementation of 
a complete proof procedure practical for problems of respectable complexity. 
However, due to results obtained with early codings of Herbrand's procedure, 
it was soon discovered that the inefficiency of these algorithms quickly ex- 
hausted the resources of the largest and fastest computers. Much work has 
subsequently gone into refinements and modifications of complete proof proce- 
dures, and considerable improvements have been made. Some programs of this 
nature will be discussed in an appendix. 

The other approach to proving theorems by computer has been the heuristic 
one. Projects in this class are not to be confused with those programs, es- 
sentially combinatorial in nature, which have been modified by the inclusion 
of heuristics. Rather, the basic structure of the algorithm must be heuristic 


in nature. The earliest such attempt, and an important one, was the Logical 


(14) Further work by these authors (19) 


Theorist of Newell, Shaw, and Simon. 
was joined by the so-called "advice-taker" approach originated by McCarthy. (7) 
Many of these programs are in reality general reasoning algorithms, and their 
use as theorem-provers was done merely by way of an example. The heuristic 
approach holds out the enticing possibility of capturing the essence of human 
procedures which enable difficult problems to be handled with a reasonable 
amount of effort. The price to be paid is that of expressing, in the form of 
a computer program, most of the large number of methods that people use, often 
without realizing that they are doing so, while solving problems. 

The work to be discussed here belongs in the second category. Its devel- 
opment, however, has been of a different nature than that of most previous 
heuristic problem solvers. In this case, there has been no attempt to develop 
a general problem solving mechanism. Instead, attention has been focussed on 
the abstract theory of protege o"? (not necessarily finite), and in particular 
on the question of an algorithm uniquely designed to handle theorems of this 
particular area of pure mathematics. As is related at the end of this report, 
the program actually constructed can be easily adapted to "advice-taker" prob- 
lems in other areas — a fact hardly surprising in view of the reasoning capa- 
bilities needed to solve theorems in any branch of mathematics. But the 
creation of the program was done with only group theory in mind. 

In fact, the program was created only as a step toward a computer 
procedure for solving difficult problems in the theory of groups. Just as 
it was necessary to actually program Herbrand's procedure in order fully to 
appreciate the difficulties which arise in using this method with a digital 
computer, so it is necessary to have a program capable of handling a fair 
number of group theory theorems of slight to medium difficulty in order fully 
to appreciate the difficulties inherent in coping with the theory of groups 
using a digital computer. Existing programs had proved a few elementary re- 
sults in group theory, and more are being done as time goes on, but no pro- 
gram reported in the tedetate has proved more than a handful of theorems 


from this subject, and in particular, very little work in group theory has 


been done by programs of a basically heuristic nature. 

Most heuristic proof procedures, including the one to be discussed in 
this report, employ a main routine which works backward. That is, it begins 
with the statement which is to be proved, and constructs a chain of statements 
in the hope of reducing the original statement to one which is known or can be 
established. The chain is so constructed that if such a statement is found, 
the desired conclusion is proved or partially proved. In other words, at any 
point, the chain is part of a "proof tree" leading, by means of valid infer- 
ences, to the desired conclusion, though no part of it will be a true proof 
tree until some verifiable branches are generated. There is, usually, no 
guarantee that the chain will be turned into a true proof. The alternative is 
a forward approach, which consists of deriving statements from the hypotheses 
and axioms. In this approach, all chains are true proofs; the problem is that 
most statements proved are of no relevance to the desired result. Im (14), 
Newell, Shaw, and Simon argue for the "working backward" approach. They liken 
it to the process a needle would use to find its way out of a haystack, as 
opposed to a search for a needle in a haystack. 

In addition to the basic structure of a program (that is, the 
organization of its main routine), there are the special-purpose subroutines 
which enable it to perform capably in a complex problem area. These sub- 
routines may incorporate individual heuristics; what is more, if the main 
routine is properly organized, they can be altered in various ways, thus 
making it possible to perform experiments which will help determine more suc- 
cessful methods for dealing with the problem area in question. This is cer- 
tainly true with heuristic theorem-provers. In developing the main routine, 
one must decide such questions as "in which direction is a proof to be devel- 
oped?" But the task of establishing theorems can only be done with the ad- 
ditional aid of many special-purpose techniques, each of which must be incor- 
porated somehow into the basic program. 

One of the advantages of the heuristic approach is that various 


techniques used by human problem-solvers can be directly incorporated into 


the program in a natural way. This was definitely a major consideration of 
the present project. Admittedly, it is not true that people organize their 
problem-solving efforts exclusively in the "working backward" manner employed 
by this particular heuristic program. However, it is fair to say that a large 
amount of theorem-proving is done in that fashion, and certainly a proof pro- 
ceeding in that manner is "natural" in appearance. Similarly, it is easy to 
attach various subroutines to a main routine organized to proceed backward. 

With the organization outlined above, a computer program was written, 
designed to produce efficient and natural-appearing proofs for theorems of 
group theory. The program is known as ADEPT, which stands for "A Distinctly 
Empirical Prover of Theorems". As its name indicates, ADEPT is extremely 
ad hoc, which should not be surprising when one considers how non-compact and 
poorly formalized are the methods that people use. Thus ADEPT does not have 
a neat, transparent algorithm, and any reader who feels that all mechanical 
theorem-provers should be basically tidy will be disappointed in the present 
work from that viewpoint. However, compensating for the complexity of the 
program is the ease with which ADEPT may be augmented with direct analogues 
of various shortcuts which people successfully use, and in this respect rapid 
development took place in this project. A notation was developed which was 
simple to use, incorporating English terms in a "Cambridge Polish" format. ©) 
This helped obtain flexibility for experimenting with special-purpose heuris- 
tics, and ADEPT became a useful tool for investigating the problem area of 
group-theoretic theorems. 

A large percentage of the special-purpose heuristics used with ADEPT 
restrict the growth of the proof tree. Ideally, no irrelevant steps should 
be allowed by such heuristics, and no step necessary to a correct and effi- 
cent proof should be prevented from occurring. In practice, of course, the 
heuristics are imperfect and fail to some degree in both respects. What seems 
to be needed is for the program to understand where it is in a proof; to be 
aware of what it is doing, and why. It is of no interest here to argue over 


whether or not a program can ever "be aware"; the effect is what is of 


interest. A program which generates efficient proofs for a large number of 


theorems is the goal, and if it is achieved one might as well say that the 
program is “aware", Certainly the benefits of awareness will have been 
obtained. 

A great amount of effort went into achieving such a property in ADEPT. 
In fact, a strong requirement was adopted from the beginning. One algorithm 
was to suffice for all theorems, yet be efficient in all cases. ADEPT never 
“backtracks". If for some reason it fails to prove a theorem, it does not 
remove some or all heuristic restrictions, though this could be done rather 
easily. Until the program be dapeouea: enabling it to handle that theorem 
without any serious loss of efficiency in other proofs that it has success- 
fully produced, it will just be unable to prove that theorem, efficiently or 
inefficiently. This requirement may seem harsh, for people sometimes quit 
and start over in a different way, but it must be remembered that ADEPT is 
not doing advanced problems. Thus it is reasonable to experiment and find 
out just how far this “one-pass" approach can be carried. 

Closly related to the idea of "awareness" is the question of ascertain- 
ing when progress is being made in a proof. There is no simple way to do 
this — no metric, no compact test. As will be seen, much of the effort of 
developing a program which appears to understand what it is doing went into 
an analysis of how to recognize those steps which constitute real advancement 
toward the desired goal. 

The construction of a theorem-prover using this philosophy did not occur 
all at once. An "evolutionary" process was involved, as the fine points of 
the problem became evident. Thus the earlier versions of ADEPT served as 
vehicles for understanding the task of theorem-proving better, and for sug- 
gesting new heuristics to be incorporated into the program. This report 
tries to make this developmental aspect of the project clear. 

The presentation of both the development of ADEPT and its latest version 
is supplied with numerous, detailed examples. ADEPT has been used to solve 


many theorems, and each has provided new insights into the needs of any 
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algorithm which must cope with many diverse, individual theorems. Examples 
are given to illuminate the reasons for various additions which have been 
made to ADEPT. Others illustrate the more interesting abilities of ADEPT to 
prove problems efficiently. Still others point out the deficiencies which 
still remain. The totality represents a long program of experimentation, and 
underlines the worth of a working system which can be readily used to explore 
a problem area in detail. 

The theorems presented to ADEPT are all familiar to a student of group 
theory. For the most part, they are given in this report using a common 
mathematical notation. Those terms which represent concepts which must be 
defined in order to specify the theorem will be underlined when used in the 
statement of a theorem. From a syntactic point of view, of course, the pre- 
cise statement of the hypotheses, conclusion and relevant definitions deter- 
mine the problem to be proved. A slight variation in these statements results 
in a completely different problem. However, such a variation may not be a 
different problem from a semantic viewpoint; i.e., its interpretation in 
group theory may be equivalent. It is also possible that a variant of a 
problem may have a different (e.g., broader) interpretation, yet result in 
the same operations by the program. Experiments have been carried out in- 
volving alternate versions of a number of problems, and indeed the notation 
used by ADEPT allows flexibility in arranging such experiments. In general, 
the view is adopted that if ADEPT can prove some but not all of two ‘fe more 
semantically equivalent but syntactically different versions of a theorem, 
ADEPT "can prove the theorem". 

With this introduction, it is time to begin the actual detailed report. 
Chapter II introduces the notation (i.e., syntax) used by the program, and 
presents other details necessary to understand the description of the opera- 
tion of the program itself, which is given in Chapter III, accompanied by 
numerous flow charts. The fourth chapter specifically discusses ADEPT's 
special-purpose heuristics —— their development, purpose, and operation. 


Then, accounts of detailed problems commence, and it is felt that the number 
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and length of the problem descriptions are extremely valuable for an under- 
standing of this project. Theorems successfully proved by ADEPT are the main 
content of Chapter V, while Chapter VI concentrates on those theorems which, 
for any of a number of reasons, the program cannot handle. Chapter VII is a 
description, with examples, of extensions to the ADEPT program which have 
actually been carried out, though in some cases rather crudely. Then Chapter 
VILLI sugzests possible alterations, additions, and directions for future work 
which have not been explored to date. An appendix reviews the field of me- 
chanical problem-solving in the light of the present effort, covering both 
heuristic and combinatorial programs which have been reported in the Litera- 


ture. A bibliography and index supplement the text. 


be. 


CHAPTER II 


DESCRIPTION OF ADEPT — I 
NOTATION, CONVENTIONS, ETC. 


(8) 


ADEPT has been programmed in the language LISP 1.5, using a special 
version of the system created by Joel Moses, a variant of the system currently 
in use at MIT's Project mac. “) The special version provides an increase of a 
thousand words (or 142) of binary program space by eliminating those features 
of the standard LISP package which are not used by the ADEPT program. As much 
of ADEPT as is possible is compiled. No new features were added to the LISP 
system. 

Since ADEPT is programmed in LISP 1.5, it is advantageous to have state- 
ments of its own language appear as lists to LISP. As will be seen in this 
chapter, the notation adopted for representing mathematical statements pos- 
sesses this property. In particular, the basic (or atomic) entities of this 
notation form a subset of LISP's atomic symbols. For ADEPT, a symbol is a 
string of alphanumerics, the first of which is a letter or an asterisk. Sym- 
bols are delimited by blanks or parentheses. 

To describe the language used by ADEPT, one must first designate which 
symbols are used for variables and constants. Three types or sorts of vari- 
ables and constants are provided for in the basic system, though more types 
could be added in the future, as mentioned in Chapter VII. The same symbols 
are used for both the variables and constants of a given type, and a flag 
associated with each symbol indicates which use is being made of it at a given 
time. Single letters (A through M, excluding F because of its special role in 
the LISP language) are used to designate sets, the symbols Fl through F9 are 


used for functions, and the symbols Al through Al2 represent variables which 


may be members of sets. In addition, the program is provided with a facility 
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to define new variables or constants. as needed by internally generating new, 
unique symbols. 

By choosing the variable types as above, a two-level hierarchy of member- 
ship is fixed. Clearly ambiguity is possible with such a system, as, for in- 
stance, with a coset, which while it is a set with its own members, also can 
be itself a member of a larger set, the factor group. The burden of deciding 
whether such an object must be considered to be a member or a set in a partic- 
ular problem rests with the user, who must use one type of symbol or the other 
when he states the problem. This limitation caused no difficulties while ex- 
perimenting with ADEPT; i.e., no problem required three or more explicit 
levels of inclusion. 

The language contains connectives or propositional terms, and the follow- 
ing symbols are recognized as such: AND, OR, NOT, IMPLIES, IMPLIES2. 

IMPLIES2 is the notation for the biconditional (<==>). In addition, the lan- 
guage presently contains three logical constants, EQJAL2, EQUAL, and FEQUAL, 
all of which are used to represent equalities. EQUAL2 is the basic symbol, 
and the "2" emphasizes the symmetric nature of equality. EQUAL and FEQUAL 

are present to allow the user easy implementation of some heuristic options. 
The use of EQUAL in a statement will restrict ADEPT to substitutions in only 
one direction, as will be seen in Chapter III. This makes it possible for the 
user, by his choice of logical constant for stating an equality, to provide 
that an axiom such as wae = e allow only simplifications, thus preventing 
expansions. An equality to be proved, stated using FEQUAL, will be processed 
differently by ADEPT from one stated using EQUAL2 or EQUAL, and this feature 
will also be described in the next chapter. Experience has shown that the 
flexibility provided by these options is of tremendous value. (When mathemat- 
ical notation is used in this report to describe a proof, the symbol = will 
ordinarily be used for equality. However, if confusion is present or if it is 
important to specify the exact form of a statement in ADEPT's language, math- 
ematical notation will be augmented by the symbols =,, ep and <-, correspond- 


ing to EQUAL2, FEQUAL, and EQUAL respectively, and the notation for EQUAL is 
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intended to emphasize that the second argument can be substituted for the 
first, but not vice versa.) 

The symbol EXISTS is used as an existential quantifier, but there is no 
explicit universal quantifier. This should not be surprising, for most uses 
of the universal quantifier in group theory are implicit. Any statement with 
variables not bound by an existential quantifier is interpreted as being uni- 
versally quantified over those variables. As for the existential quantifier, 
it will be seen in the next chapter that ADEPT does not use a uniform proce- 
dure to handle it. Instead, special cases are provided for separately, and 
new subroutines can be created as the need for treating more cases arises. 

The name syntactic constant will be used to group together connectives, 
logical constants, and quantifiers. The operations performed by ADEPT upon 
encountering a syntactic constant will be discussed in Chapter III. 

Any symbol which is not a variable/constant or a syntactic constant is a 
term. Terms can be identified by entries in tables of necessary and suffi- 
cient conditions. When the operation of ADEPT is considered, it will be ex- 
plained why there are in fact only two tables — one of sufficient conditions 
and one with definitions (necessary and sufficient conditions). There are 
two terms which are given null entries in these tables —~ MEMBER and *PROD — 
and thus may be considered to be primitives. 

Terms may start either with an asterisk or with a letter, and it will be 
seen that asterisked and non-asterisked terms have different roles in the 
Syntax of the language. Consequences of the use of the two kinds of terms 
will appear throughout this report. 

It is now time to see how the various symbols are combined into state- 
ments. First, it is necessary to describe an intermediate notion which is 
essentially a generalization of the concepts of variables and constants, and 
which also is subdivided into types. Objects are defined (recursively) as 
follows: 

i) a set variable or constant is a set object (e.g., A); 


ii) a member variable or constant is a member object (e.g., Al); 
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iii) a list of three elements, the first of which is a function 
variable or constant and the second and third of which are 
set objects, is a function object (e.g., (Fl A B));3 
iv) a list of four elements, the first three of which are as 
in iii) and the last of which is a member object, is a 
member object (e.g., (Fl A B Al)); 
v) a list of one or more elements, the first of which is 

an asterisked term and the rest of which are objects 

of any type, is an object of type to be determined by 

the user's interpretation (e.g., (*CENTER G)). 
In iii), iv), and v), the compound objects, the elements of the list excluding 
the first are arguments of the first element, and the list is said oe be 
headed by its first element. All lists conform to the syntax of the program- 
ming language LISP 1.5. 

Some comments on the concept of object are in order. The definition by 
iii) of function objects and the closely related definition by iv) of certain 
member objects are illuminated by the intended interpretation. The second 
and third elements of these lists are to be understood as the domain and 
range, respectively, of the function. The fourth element of the list, if 
present, is the argument of the function in the mathematical sense. Thus 
(Fl (*INTERSECTION H K) K) might denote the canonical map from HNK into K, 
and (Fl (*INTERSECTION H K) K Al) would then denote some point of K, namely 
the image of Al under the map in question. Note that function variables or 
constants are not allowed to "stand alone" as function objects. All functions 
have a domain and range, and the language, unlike mathematical notation, re- 
quires that this must be made explicit. Incidentally, the syntax allows ob- 
jects that have no interpretation. For instance, the object (Fl A B Al) is 
meaningless unless Al is contained in A. 
The intended interpretation also supplements the definition of objects 

given by v). Here the user, in formalizing a definition or sufficient condi- 


tion for an asterisked term, will determine what arguments, are needed, and 
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therefore their type. (*IDENTITY G) is a possible example of a member ob- 
ject with one argument, a set object. (*INTERSECTION H K) was used above as 
a set object with two set objects as arguments. Thus the asterisked term in 
this kind of object syntactically is a function. 

Objects are combined with the other symbols into statements or formulas 
according to the following recursive definition (all statements will be lists 
to LISP 1.5): 

i) a list of two or more members, the first of which is a 
non-asterisked term and the rest of which are objects of 
any type, is a statement (e.g., (SUBGROUP H G)); 

ii) a list of three elements, the first of which is EQUAL, 
EQUAL2 or FEQUAL and the other two of which are member 
objects, is a statement (e.g., (EQUAL2 Al (*IDENTITY G))); 

iii) a list of two elements, the first of which is NOT and 
the second of which is a statement, is a statement; 

iv) a list of three elements, the first of which is AND, OR, 
IMPLIES, or IMPLIES2 and the other two of which are 
statements, is a statement; 

v) a list of three elements, the first of which is EXISTS, 
the second of which is a variable, and the third of which 
is a statement, is a statement. 

Clearly, meaningless statements are possible; i.e., ones with no inter- 
pretation. However, the intended use of the various forms of statements 
should be clear, except for those defined by i). There is, of course, a 
parallel between such statements, headed by a non-asterisked term, and the 
objects headed by an asterisked term. The arguments in each are determined 
by the user's use of the term. However, a statement headed by a term is in- 
terpreted as a statement about its first argument. Thus (CENTER C G) says 
that C is the center of G, and (HOMOMORPHISM (Fl GH)) says that a certain 
map is a homomorphism. Non-asterisked terms, then, serve as predicates, with 


a restricting convention on the order of the arguments. 
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Any statement which contains an object headed by an asterisked term can 
be translated into one that does not. For instance, the statement 
(INTERSECTION I (*CENTER G) H), which says that I is the intersection of the 
center of G and some set H, could be restated as (AND (CENTER C G) 
(INTERSECTION I C H)). This is a direct parallel to the practice of intro- 
ducing variables in a proof stated in mathematical notation; e.g., "Let C be 
the center of G, and consider the intersection I of C and H. Then...." 
Though such a translation is always possible, it is not always desirable. 

For instance, a user would not want to eliminate an instance of 

(*INVERSE Al G) any more than a mathematician would want to say "let y be the 
inverse of x" instead of simply using yo by (The symbol G denotes the set 
on which composition, and hence the inverse, is defined.) 

A converse translation, eliminating non-asterisked terms in favor of 
asterisked terms, is not possible. How, for instance, could "aye G& a,€ G" 
be expressed, since both (MEMBER Al G) and (MEMBER A2 G) could only be trans- 
lated into (*MEMBER G), thus losing information? An object such as 
(*MEMBER G) would be a variable, syntactically. To simplify construction of 
ADEPT's matching routines, a convention has been adopted providing that all 
objects headed by an asterisked term must be used as constants. Thus 
(*MEMBER G) would be excluded (except in the unlikely case that G has but 
one member), while (*CENTER G) is an object which could appear in a state- 
ment. Translation from statements headed by non-asterisked terms is there- 
fore limited to cases where the term uniquely specifies its first argument. 

While use of asterisked terms is natural in some cases, such as the 
above-mentioned example of inverses, at other times it is not obvious whether 
or not such terms should be used. A number of examples will be given in 
later chapters illustrating the effects of notation on specific problems. It 
suffices to say here that ADEPT's language allows a degree of flexibility in 
this regard which sometimes can be exploited to advantage. The program it- 
self has no facilities for translating from the use of one type of term to 


the use of the other. 
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All proofs constructed by ADEPT are lists of statements, developed by 


operations on statements, so sufficient information on notation has been pre- 
sented to allow discussion of a proof. However, for purposes of programming, 
many statements have associated property lists, which are inserted into a list 
which is a true statement, preceding the first element. This is the standard 
form of a table entry. In LISP terminology, CAR of a table entry is the prop- 
erty list, and CDR of a table entry is a statement. For example, statements 
to be entered in the tables of conditions and definitions are accompanied by 
a property list consisting of the term being specified, followed by variables 
of appropriate type serving as dummy arguments. An example will clarify: a 
sufficient condition for subgroup (closure under products and inverses) is 
given by ((SUBGROUP A B) IMPLIES (AND (MEMBER Al A) (MEMBER A2 A)) (AND 
(MEMBER (*PROD Al A2 B) A) (MEMBER (*INVERSE Al B) A))). Now if it were 
desired to expand the statement (SUBGROUP H G) using this condition, the de- 
sired substitution instance of the statement given in the table entry could be 
obtained easily with the aid of the result of matching the property list with 
the statement to be expanded. Note how the property list of a definition or 
condition specifies the number and type of arguments of a term. The primitives 
MEMBER and *PROD have their arguments similarly specified by null definitions — 
. ((MEMBER Al A)) and ((*PROD Al A2 A)) respectively (where the third argument 
of *PROD is the set on which the composition is defined). Needless to say, 
consistency in the use of arguments must be followed in creating the tables of 
conditions and definitions. 

To complete the groundwork for the discussion in Chapter III of the oper- 
ation of the ADEPT program, it is desirable to discuss the way in which a pro- 
posed theorem is inputted to the program, and the output that is obtained from 
it. Instrumental to this discussion is the fact that in the course of working 
on a proof, ADEPT develops two lists, or tables. Table I is a list of know 
statements — either hypotheses, axioms, or certain intermediate results; 
table II is the proof tree proper. 


A problem is presented to ADEPT in three statements, each of which may be 
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a conjunction. The first two are hypotheses, either (or both) of which may be 
vacuous. The first of these will have all of its variable/constant symbols 
fixed (i.e. flagged) as constants; any additional variable/constant symbols in 
the second will not be flagged. Both statements are then "sent" to a subrou- 
tine called PUTON! (described in the next chapter) for inclusion on table I. 
The third statement of input is the desired conclusion. All of its vari- 
able/constant symbols will be fixed as constants except those appearing in 
(sub)statements headed by the connectives IMPLIES or JMPLIES2. The conclusion 
will be put on table II by the subroutine PUTON2 (also to be described in 
Chapter IIL). No syntax check is performed on any statements inputted or 
internally formed to insure that they are legally formed, so the user must 
exercise care. 

In this way the determination of whether variable/constant symbols are 
used as constants or variables is handled during the inputting of a problem to 
ADEPT. Any such symbol not flagged as a constant is treated as a variable. 

In the course of a proof, additional symbols may be generated, but the purpose 
for the generation will specify their use. A restriction on the user in this 
regard is actually the only unfavorable consequence observed due to the absence 
of an explicit universal quantifier in the language. This is the fact that any 
symbol intended to be a variable in an implication which is part of a conclu- 
sion must not have been previously fixed as a constant due to its use in the 
first hypothesis. For-example, if (LCOSET A Al BC) were the first hypothesis 
(A is the left coset of B given by Al where composition is defined on the set 

C —e.g., B is a subgroup of C and A is a,B) then (IMPLIES (MEMBER Al A) 
(MEMBER Al C)) would not be a way of stating the conclusion that A is a subset 
of C. The intent, having the Al of the conclusion be a universally quantified 
variable, is thwarted by the previous treatment of Al in the hypothesis as a 
constant. Thus the conclusion presented as above would result in a proof that 
just Al, the particular element specifying the coset, is a member of C. (Note 
that the statement (IMPLIES (MEMBER Al (*LCOSET Al B C)) (MEMBER Al C)) as a 


conclusion would also have the restricted interpretation, but this statement 
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could not have any other interpretation anyway!) Use of A2 in the conclusion 
would remedy the problem, which is an uncommon one, since other methods of 
stating conclusions avoiding implications are usually not only possible but 
more natural, as in this case, the statement (SUBSET AC). The user must also 
be careful when using implications in conclusions to insert hypotheses which 
will fix as constants any variable/constant symbols which must be so treated 
in the implication. This conceivably could necessitate dummy hypotheses. 
Alternatively, the whole problem (which seldom is encountered) could have been 
avoided by requiring the user to accompany the three input statements with a 
list of which variable/constant symbols are to be treated as constants. 

The manner in which the proof tree is developed is the subject of the next 
chapter, but a few remarks will now be made concerning the structure of table 
II. Basically, it is an embodiment of the "working backward" approach to 
ghadrencbrovings? As indicated above, the desired conclusion becomes the 
first node, or head, of the proof tree. Loosely speaking, the proof procedure 
may be said to be an attempt to reduce the desired result to a statement which 
is already established. For this reason, branches of the tree are called 
reductions. A reduction of a node is, with one exception, a statement which, 
if verified, would suffice to verify that node. A node, of course, may have 
any number of reductions. The exception referred to occurs at a node which is 
a statement headed by the connective AND. Such a node is immediately subdi- 
vided and therefore has two and only two reductions, its conjuncts, each of 
which must be verified in order to verify the conjunction. The notation of 


Slagle 3) 


will be used in diagrams of proof trees; reductions are indicated 
by lines descending from the parent node, and reductions which must both be 
proved in order to verify the parent node are linked by an arc (Figure 1). 
Statements on both tables I and II have associated property lists. The 
table I entries are accompanied by a line number and a numerical indicator of 
the logical class to which the line belongs, a concept which will be developed 


in Chapter III. The property list of a table II entry is more complex. Its 


composition is as follows: 
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Figure 1 is 


i) an indicator of the line's status; 
ii) a list of the line numbers of the line's immediate 
predecessors; 
iii) a list of the line numbers of the line's reductions; 
iv) the line's number ; 
v) the line number assigned or that will be assigned 


to the first entry on table I which has not been 


checked against the line; 


and an optional element present only on the property lists of lines which are 


heads of subordinate trees begun in the course of a proof: 


vi) 


the line number of the table I entry which was used 


in the creation of the line. 


The use of these elements will become clearer in the succeeding chapters. 


The set of possible statuses for a proof tree line is as follows: 


i) VER - verified; 
ii) REL - unverified and relevant; 
iii) RELI - unverified, relevant, but deemed to be partially 
processed; 
iv) IRR - known to be irrelevant; 
v) SIM - unverified, but simplified (or subdivided, in the 
case of a conjunction) and therefore to be skipped; 
vi) ST - on a subordinate tree and unverified; 
vii) VERST - ona subordinate tree and verified; 
viii) PNT - that Line which is currently under closest exam- 


ination by ADEPT. (PNT is an acronym for “pointer".) 

In discussing the formal language and proof structure used in the ADEPT 
project, no mention has been made of rules of inference. This is because they 
are not treated formally, but in an ad hoc manner, as will be seen in the de- 
tailed description of ADEPT's operation. 

ADEPT has been implemented on CTSS (Compatible Time Sharing system) @) at 


MIT's Project MAC. Therefore, communication with the program from a 
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teletypewriter console is possible. Stating a problem is done by typing in 
the three statements described previously, and conditions and definitions will 
be requested if not found in the tables. An answer of ''NO" will be recorded 
as a null condition or definition so that terms may be undefined without re- 
petitive demands from the system for the definition. The output consists of 
the final status of tables I and II]. (Sometimes information on property lists 
is destroyed when table II lines are verified, so the final output may appear 
to have lines with erroneous property lists.) One observes from the output 
whether or not a theorem has been proved simply by noting whether or not the 


first entry of table IL is of status VER. 


CHAPTER IIL 


DESCRIPTION OF ADEPT — II 


STRUCTURE OF THE PROGRAM 


As was pointed out in the last chapter, ADEPT uses a "working backward" 
method of proof. This basic organization is outlined in somewhat more detail 
in Diagram I. Examination of that flow chart will reveal that the majority of 
the work of proving a theorem must take place during the steps labelled "ex- 
plore consequences...", Also it is obvious that much must be explained about 
the use of the innocent word "progress". 

Some of the occasions when entries are made to tables I and II are evident 
from Diagram I. Many others are found in the "explore consequences" phases of 
the program. The rest of the basic structure of ADEPT lies in the routines 
which add lines to one of these tables; i.e., add a property list to a state- 
ment and do any necessary processing which must accompany the placement of the 
new table entry. Of course, there are also matching subroutines, and a 
"tree-pruning" subroutine which is called whenever a table II entry is veri- 
fied. 

A few remarks regarding the tables of sufficient conditions and defini- 
tions are now in order. First of all, it is important not to confuse these 
tables with table I, which is the list of "known" information being’ used in 
any one proof. The totality of ingomaacion included as definitions, etc., is 
never dealt with in a pieer: only those instances of the entries of these 
tables which are put on tables I or II are processed in any detail. 

Instances of sufficient conditions are used in ong _ way. As shown 
in Diagram I, if the line currently of status PNT is a Statement’ headed by a 
term, then if there is a sufficient condition for that term in the table, the 


appropriate instance of that condition will be added to table II as a reduction 
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tnitialization and 
input of problem 


Assign status PNT to 
next line of status REL 
Call this line U 


Is U headed by IMPLIES? 
No 


Explore consequences 
(i.e., call SCANW) 


Progress? 
No 


no such line 


PUTON1 instance 
of consequent; 
PUTON2 instance 
of antecedent 


Is U headed by a term 
which is replaceable by 

a sufficient condition 
or a definition? 


No 
Explore consequences 
of all terms in U 


Progress? 


PUTON2 
rep lLacemen 


Explore consequences of all 
constants in U which are 
identified by statements on table I 


Progress? 


NO 


Explore consequences of all other 
terms in first hypothesis of problem 


ae Use SOLVEX to try Pe Is U headed 
to establish U by EXISTS? 


No 
Is U headed 


by FEQUAL? 


Use HOMOMF to try 


to establish U ee 


Ask user if proof 
should continue 


Success 


Diagram I 


Flow chart for ADEPT 
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of the line of status PNT. In the event that a sufficient condition is not 
available, the table of definitions will be consulted for a possible reduction. 
Instances of definitions can also be placed on table I, and this occurs at 
three steps of Diagram I which are labelled with the phrase “explore conse- 
quences ", augmented by "of...'", In these cases, a call for definition in- 
stances is being made, either for definitions of terms appearing in a proof 
tree line of status PNT, terms in table I statements identifying constants in 
the line of status PNT (e.g., (SUBGROUP H G) identifies H), or terms appearing 
in the first hypothesis of the problem. 

The method of proof utilized by ADEPT makes it natural to have a separate 
table of sufficient conditions, supplying a source of material for possible 
reductions. Definitions are indispensible for many reasons, and it would be 
poor practice to force a check of both a sufficient condition table and a 
necessary condition table in order to obtain them, hence ADEPT has a table of 
definitions. As for necessary conditions per se, they could be used for the 
same reasons that definitions are used in connection with adding statements to 
table I, but a need for such a feature has not been observed with ADEPT. The 
inclusion of such a table might be a future extension. Until such time, nec- 
essary conditions for terms may be included in the definition table if the 
user is sure for some reason that no attempt will be made by the program to 
add to table II an instance of the definition of that tern. 

At present, provision is made for only one sufficient condition or defi- 
nition per term. Of course, this is hardly surprising in the case of defini- 
tions. However, even in the case of conditions, there is really no restriction 
because of the possibility of using the connective OR. This does lead to the 
equal consideration of all disjuncts, at least at present, and for harder 
problems requiring selection among multiple conditions, more sophisticated 
procedures will have to be implemented in order to overcome inefficiency. 

In Diagram I, "initialization and input of problem" results in the place- 
ment of the two hypotheses on table I and the conclusion on table II. The 


conclusion, or more precisely, all conjuncts of the conclusion which are not 
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themselves conjunctions, will be assigned status REL. The main loop is then 
entered, and one can think of a pointer being positioned on the first table II 
line of status REL. Note that this assignment of status PNT is made only to 
lines of status REL; thus, for instance, lines on subordinate trees can never 
undergo the special treatment afforded to such lines. 

If the current line of status PNT is an implication, an instance of it is 
created by generating a new symbol for each distinct variable (not constant) 
of the line, declaring these new symbols to be constants, and performing the 
indicated substitution (thus achieving a process of universal specification). 
The antecedent of the resulting implication is then added to table I and the 
consequent becomes a reduction (of status REL) of the original implication. 
(In general, reductions are tentatively assigned the status of their pre- 
decessor. See, however, Diagram IV.) This terminates consideration of the 
imp lication. 

If the line of status PNT is not an implication, ADEPT at this point 
calls its main subroutine, which performs a scan, deriving reductions of proof 
tree lines which can be inferred from the current set of entries on table I. 
This derivation can be done in various ways, with various allowed inferences, 
and will be discussed in detail shortly. This is what is meant by "explore 
consequences". In some subsequent steps of Diagram I, it is done after adding 
appropriate definition instances, if any, to table I. 

Treatment of special cases by means of the subroutines SOLVEX and HOMOMF, 
mentioned near the bottom of Diagram I, will be discussed at the end of this 
chapter. As for the communication to the user regarding continuation of a 
proof, clearly this is just a frill made possible by the on-line terminals of 
the MAC time-shared system. This point on the flow chart is almost never 
reached in theorems which ADEPT is able to prove. 

Diagram I reveals to some extent the heuristic nature of ADEPT, at least 
on one level. Of course, proceeding back from the conclusion is itself a heu- 
vawide for proving theorems. In addition, existence of such entities as FEQUAL 


allows heuristic possibilities. But a central and most difficult goal of this 
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project was to introduce, presumably by use of heuristics, an "awareness" into 
the program. It seems obvious that a successful heuristic theorem-prover must 
perform as though it "understood" where it was in a proof. A student, of 
course, has such an ability, and to what degree it can be inserted in a pro- 
gram will be reflected in the order of development of a proof and in the ratio 
of necessary to irrelevant lines in the proofs produced. 

The means used to attempt to achieve this ability in ADEPT include the use 
of the status PNT, and the accompanying design and application of criteria for 
"progress", which determine when the pointer is to be advanced. Through use 
of status PNT, instances of definitions can be introduced as they become rele- 
vant. Of course, this feature can be of help only until all the instances 
which will be used in a proof have been produced. In addition, if the point 
in the flow chart where terms of the first hypothesis are considered is 
reached, experience shows that most of the instances will be obtained all at 
once. However, the first stages of a proof often proceed more efficiently 
because of this "selectivity" feature. Alternative methods for achieving 
similar results are discussed in Chapter VIII. As for detailed discussion of 
particular heuristics, this is the subject matter of the next chapter. 

The flow of a proof can now be illustrated, and the example will also 
serve to illuminate the content of Chapter II. The proof will be discussed 
in both ADEPT's language and mathematical notation. Rather than supply appro- 
priate definitions to the tables, it will be assumed that the tables are empty 
(except for null definitions of *PROD and MEMBER, and a null sufficient con- 
dition for MEMBER) and that ADEPT asks the user for information at the appro- 
priate times. 

Theorem: If K is the kernel of a homomorphism fy mapping 
G into H, then K is a submonoid of G. 
This is presented to ADEPT as follows: 
(AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 
NIL 


(SUBMONOID K G). 
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(In what now occurs, it will be assumed that an early version of ADEPT is being 
used, unaugmented by a number of heuristics yet to be described.) 
Table I now is as follows (since conjunctions and biconditionals are 

immediately subdivided by PUTON1): 

((L 1) KERNEL K (Fl G H)) 

((2 2) HOMOMORPHISM (Fl G H)), 
K, Fl, G, and H are fixed as constants, and ((REL (HEAD) (NONE) 1 1) 
SUBMONOID K G) goes on table II. This line is changed from status REL to 
Status PNT, and the preliminary scan is fruitless. ADEPT now desires a suffi- 
cient condition for submonoid, and the user responds ((SUBMONOID A B) IMPLIES 
(AND (MEMBER Al A) (MEMBER A2 A)) (MEMBER (*PROD Al A2 B) A)); i-e., A is a 


submonoid of B if a,e A& a,e A ==> a,a,e A (i.e., A is closed under composi- 


2 2 


tion). This results in the instance a,e K &a,e K ==> a,a,€ K being added to 


2 
table II as a reduction: ((REL (1) (NONE) 2 1) IMPLIES (AND (MEMBER Al K) 
(MEMBER A2 K)) (MEMBER (*PROD Al A2 G) K)). This causes the property list of 
line (1) (which had already been altered by the fruitless scan) to be changed 
to (REL (HEAD) (2 NONE) 1 3), as line (2) is assigned status PNT. Property 
lists will henceforth be ignored in this discussion, except that entries will 
be referred to by their line numbers. 

The implication is immediately split, and, assuming the symbols generated 
are Kl and K2, the statement (AND (MEMBER Kl K) (MEMBER K2 K) is sent to PUTONL 
for inclusion on table I, and line (3) of the proof tree becomes (MEMBER 
(*PROD Kl K2 G) K). In mathematical language, to prove the desired implica- 


tion, assume k, and ky are fixed, arbitrary members of K, and prove k,k,e K. 


1 12 


Line (3) now has status PNT, a scan is of no help, and the line has no 
terms which are defined in the tables. The line's constants are Kl, k2, G, 
and K, the first two of which are identified by table I statements headed by 
a term with a null definition. G is not identified at all, but K leads to a 
request for the definition of kernel. The user supplies the statement 
a 


e K <==> £, (a,) < e, in ADEPT's language, and the appropriate instances of 


1 H 
two implications appear on table I. The first of these is (IMPLIES (EQUAL 
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Figure 2 


Proof tree for example 


(Fl G H Al) (*IDENTITY H)) (MEMBER Al K)), and the scan which takes place after 
the two entries are made to table I uses this to create the reduction (4): 
(EQUAL (Fl GH (*PROD Kl K2 G)) (*IDENTITY H)). In other words, to prove 


k ke K, prove that f, maps k,k, into the identity. The scan and the progress 


1 12 


determination are programmed so that the scan now stops and line (4) takes on 

status PNT. From it, an instance of the definition of identity is obtained 

and put on table I. (A two-sided identity is assumed by using the definition 
<_ 

a,e ay & ea, 


line (4)'s constants produces the "discovery" that (Fl G H) is a homomorphism. 


<_ ay): This leads to no reductions, but an examination of 


(Some special-case programming had to be inserted to provide that this be done, 
due to the prohibition on function symbols standing alone.) Upon obtaining 

the definition of homomorphism, the scan is able to produce (5): (EQUAL 

(*PROD (Fl G H K1) (Fl GH K2) H) (*IDENTITY H)). At this point the scan 
continues, using the other half of the definition of kernel along with other 
table I entries to derive facts about some of the objects in (5). Such facts 
are put on table I; in this case they are (EQUAL (Fl GH Kl) (*IDENTITY H)) 

and (EQUAL (Fl GH K2) (*IDENTITY H)). Still continuing, the scan can now 
create from (5) the reductions (6): (EQUAL (*PROD (*IDENTITY H) (Fl GH K2) 

H) (*IDENTITY H)) and (7): (EQUAL (*PROD (Fl G H K1) (*IDENTITY H) H) 
(*IDENTITY H)), and from (6), (8): (EQUAL (Fl GH K2) (*IDENTITY H)) using 

the definition of identity, and (9): (EQUAL (*PROD (*IDENTITY H) (*IDENTITY H) 
H) (*IDENTITY H)). From (7) is obtained (10): (EQUAL (Fl GH Kl) 

(*IDENTITY H)), and (9) is seen to be a reduction of (7) as well as of (6). 
From line (8) is obtained (11): (EQUAL (*IDENTITY H) (*IDENTITY H)) which is 
verified, as are all lines of the form (EQUAL Al Al). This causes a chain of 
verification back to line (1), completing the proof. Thus ADEPT, using defi- 
nitions of homomorphism, identity, and kernel, reduced £, (k,k,) = ey to 

£, pf, ky) =e, and then to ey £, (k,) =e 


Ww? £, (key = ey) £, (k,) = ey 


=e f,(k)) =e, and finally toe, = en an obviously valid state- 


ey Sy? H H 


it. The final proof tree has the form shown in Figure 2. 


The use of EQUAL rather than EQUAL2 in the definitions of kernel and 
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identity is crucial in avoiding serious proliferation of lines. For instance, 
EQUAL2 in the definition of kernel would allow fi (ke, =e, to have such 
reductions as ££, &) =e. and EQUAL2 in the definition of inverse would 
lead to even worse misfortunes. To be sure, the above proof is itself ineffi- 
cient, containing several irrelevant lines. However, the current version of 
ADEPT, whose development will be discussed in the next chapter, contains fea- 
tures which augment the basic structure shown in Diagram I and enable the pro- 
gram to avoid many needless actions. In this particular example, the proofs 
given by the old and latest versions deviate starting with the reductions of 


line (5), £,(k,)£,« In the improved procedure, substitutions of e 


2) = ey H 
for both £, (k)) and £, «k,) are made simultaneously and the subsequent reduc- 
tion, e,e. = ey is immediately simplified into the verifiable line ey = en: 
Thus the current proof contains seven nodes, and the proof tree is a straight 
line. Certainly for that particular problem, that is a very efficient, natu- 
rally developing proof. 

The scanning procedure is probably the most important subroutine in the 
program, and certainly it is the most complex. It is here that many heuristics 
can be added and tested. The main function of the scan, as already indicated, 
is to discover what new lines can be added to the proof tree as a result of 
implications on table I, and what substitution instances of lines already on 
the proof tree may be added to table II as a result of equalities on table I. 
This process is handled by a double loop, and can be done in either of two 
ways, both of which have been thoroughly explored with ADEPT. The first is to 
cycle through table I, and for each entry of one of the appropriate forms, to 
cycle through table II, generating all reductions of proof tree lines possible 
because of this particular table I statement. The other, of course, is to 
cycle through the proof tree, creating all reductions of a given line of table 
II due to all of the "known facts" on table I before proceeding to the next 
line of the proof. 


The latter design of the scan is superior from the point of view of having 


the program achieve an "awareness" of where it is in a proof. The attention 
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of the program is not removed from, but remains focussed first and foremost 
upon the proof tree and its development. One consequence of this is the ease 
in which a concept of "related" substitutions can be implemented, permitting 
such steps to be made simultaneously and thus allowing such steps as the jump 
from £, (k,)£, (ky) =e, to eyey = ey which was seen to be desirable in the 
example just given. 

The current version of the scan is known as SCANW, and it will now be 
explained in detail. It cycles through the proof tree in its outer loop, and 
contains such refinements as the related substitution feature. To understand 
its operation, the concept of logical class must be defined. (The reader will 
remember that an indicator of the logical class is the second element of a 
table I entry's property list.) The logical class represents an attempt by 
ADEPT to group together related table I entries. For instance, all conjuncts 
of a conjunction sent to PUTON] are put in the same class (except for the con- 
juncts of the two conjunctions comprising the original hypotheses), and the two 
implications resulting from a biconditional are in the same class. Also in the 
same logical class are instances of the same definition added to table I during 


"execution. Finally, any lemmas de- 


a single "explore consequences of all... 
rived by the program, by procedures about to be described, from a table I 
implication will be in the same class as the implication. For example, if a 
line on the proof tree mentions two sets H and J, both of which are subgroups 
of a group G, and if both instances of the definition of subgroup are placed on 
table I during the examination of the constants of this line, then all con- 
juncts of both instances will be in the same logical class; in addition, if 

due to table I entries aye H and a, 122 


1 2¢ H ==> a a5 H of the definition of H, then this lemma will 


also be in the same class. 


¢ H, the lemma a,a,e H is derived using the 


conjunct a,é Hé&a 
SCANW is described in Diagram II, which is augmented by Diagrams Ila - IIe, 

due to the routine's complexity. When studying these flow charts, note that 

this version of the scan contains within it a definition of "progress"; i.e., 


when the pointer is to be moved. This is by no means the only way to treat the 
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Entry to SCANW 
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Flow chart for SCANW 
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Aeneas 


(Ul of form P ==> Q) 
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(U1 of form P ==> Q) 
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Flow chart for SCANW 


(GENERATION OF LEMMAS) 
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(Ul of form P & Q) (Ul of form P => Q) (U1 of form (ASSOC A)) 


Put on list L2 all possible 
substitutions in Wl of instances 
of P for instances of Q 


Put on List L2 all possible 
substitutions in Wl given by 
(214983 "2 8) @943) 


Put on list L2 all possible 
substitutions in Wl of instances 
of Q for instances of P 


Tag each new entry of L2 
with an indicator of the 
logical class of U1 


Exit from this section 


Diagram [Ic 


Flow chart for SCANW 


(DETERMINATION OF SUBSTITUTIONS ) 
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Entry to this section 


Yes 


Consider rest of L2 


Is Wl still of status 
PNT, REL, RELI, or ST? 


Ye 
Let L3 be the logical 
class associated with 
the first entry of 12 


Is Wl headed by 

EQUAL or EQUAL2? 

No \ S 

Let W2 be the first 
argument of the equalit 


Make all non-conflicting substitutions 
in W2 indicated by entries of L2 which 
are tagged with L3. Call the result W3 
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PUTON2 resulting statement 
Proof complete? 


t 
es 


Exit from 
this section 


Diagram IId 


Flow chart for SCANW 


(PERFORMANCE OF SUBSTITUTIONS ) 
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Entry to this section 


Is LL "off"? 


Has line of status PNT been 
"declared processed" or 
verified? 


Assign status PNT 
to next table II 
line of status RE 


Exit A 
from this 
section 


section section 


Exit A 


from this 
section 


Diagram IIe 
Flow chart for SCANW 


(BOOKKEEPING) 
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evaluation of progress, and the next chapter will discuss this whole question 
in detail. 

The scan, as a routine, has two arguments. One, L, is used only in the 
processing of implications. The second, LL, indicates whether all of the proof 
tree starting with the line of status PNT is to be scanned immediately, or if 
the node of status PNT is to be scanned, and then a decision made whether to 
continue or return (Diagram Ile). (The latter option is generally exercised 
when SCANW is used to "explore consequences". Other uses of the scan will be 
seen later.) As shown in Diagram II, before the scan is actually made, newly 
proved lemmas are noted, in order that whatever steps they make possible may 
be carried out. The generation and use of lemmas is part of the processing 
of implications (Diagrams IIa and IIb). The double loop is then entered, and 
implications and equalities are processed. Note that substitutions are not 
allowed in some proof tree lines which are scanned by implications, and that 
substitution instances are not actually created until the pass through table I 
is completed. This, of course, enables related substitutions to be performed 
together, and it is also a fact that some possible substitutions will not be 
performed due to actions taken while processing implications. 

When an implication is encountered, as shown in Diagram IIa, an attempt 
is made to generate a reduction of the proof tree line being scanned by means 
of detachment. This method, used in Newell, Simon, and Shaw's ur, (14) is 
justified by modus ponens, and provides that a proof tree line P may be re- 
duced to a line Q if there is an entry Q' ==> P' on table I, where P is an 
instance of P' (or of a conjunct of P') and Q is the corresponding instance of 
Qq'. If an addition can be made to the proof tree by this means, certain book 
keeping is done, noting that the particular proof tree line has a reduction 
created in this manner. (The special treatment given to occurrences of the 
use of detachment is part of the current heuristic determination of "pro- 
gress.) If not, and if the proof tree line being scanned does not have a 
reduction created by detachment from some other table I implication of the 


same logical class, then an attempt to generate lemmas is made. A lemma is 
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simply an instance of the consequent of the implication, which can be added to 


table I as a "known" statement by virtue of the presence of the corresponding 
instance of the antecedent (or all its conjuncts) on table I or as a verified 
line on table II. Thus the generation of a lemma is a direct use of modus 
ponens. 

Quite often, a lemma which can be generated is irrelevant from the point 
of view of the statements to be proved on the proof tree. This suggested the 
inclusion of a relevancy check to be made before adding a lemma to table I. 
With this check, no such addition is made to table I unless the lemma would 
enable one or more reductions to be added to the proof tree. Once included, 
the existence of the check makes it natural to discover cases where a lemma 
would be useful but the required instance of the antecedent. is not known to 
hold. Then this instance of the antecedent can be put on table II as the head 
of a subordinate tree, and if it is subsequently verified, the lemma will be 
generated by a future scanning pass if it still appears to be of use. In such 
an event the verified head of the subordinate tree is also put on table I. 
This is the present form of the section of SCANW which generates lemmas and 
which is detailed in Diagram IIb. 

The restriction providing that lemmas are generated only when they can 
cause an addition to the proof tree is extremely important. It minimizes the 
use made of a "working forward" procedure and eliminates much unnecessary 
proliferation. For instance, suppose that G is known to be a group, and that 
a) and a, are members of G. From the definition of group it will be known 
that e,¢ G and that G is closed under composition. Thus 4a ,a€ G, aye, 
e G, and six other inclusions could be derived immediately from the clo- 


eG, 
C685 
sure statement, and each of these would lead to further "lemmas". With the 
present SCANW none of these derivations are made. (If one of these facts were 
desired; i.e., on table II and unverified, detachment would have handled the 
situation.) Suppose further that G is postulated to be abelian. Then none of 
the numerous instances of commutativity will be put on table I unless it en- 


ables a specific substitution to be made in a line of the proof tree. To 
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supplement the relevancy check, a heuristic, not indicated in Diagram II and 
which will be described in Chapter IV, has been found which limits the cre- 
ation of some subordinate trees to those cases where the heads are "likely" to 
be verifiable. 

Lines on subordinate trees are of status ST unless verified or simplified, 
in which case they are of status VERST or SIM respectively, though if a re- 
duction of a line of status ST is already on table II, its original status 
will not be changed to ST. Lines of status ST are given a more restricted 
treatment than those on the main proof tree, since inasmuch as they cannot 
take on status PNT they can only be processed during scans. A second major 
restriction is that such a line cannot itself give rise to a new subordinate 
tree. This restriction to a single level of subordinate proof means that 
ADEPT cannot prove theorems requiring the establishment of a complex chain of 
subtheorems. Only a few of the problems considered required this kind of 
proof; to do them with ADEPT it was necessary to state some lemmas explicitly 
in the hypotheses. 

One point is not clear on Diagram IIb, and this is the case where the 
argument L is not only not null (thereby prohibiting the creation of subordi- 
nate trees) but an actual statement. This situation arises when SCANW is 
called by the subroutine SOLVEX while attempting to obtain a "solution" for 
a table II line of the form (Ja, )[aje A& Pa,]- In such a situation, L is 
set to be "ae A". An examp le will be given when SOLVEX is discussed, later 
in this chapter. 

The discussion of lemmas will conclude with an illustration. In this 
example a subordinate tree is started not because of an observed possible 
substitution (the most common case), but because of an observed possible uti- 
lization of an implication which is itself the consequent of an implication. 

Theorem: If the center C of a group G contains all 
of G, then G is abelian. 
From the definition of abelian, ADEPT quickly concludes that the theorem 


will be proved if, assuming 8) and 8 are members of G, the identity 
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818 = 88, can be established. This line itself suggests no continuation, 
but an examination of the terms of the first hypothesis causes an instance of 
the definition of center to be placed on table I, namely [aje G <== 

[ae G ==> aia, = a,a,]] & [a,e Cc => aye G]. From this the scan finds that 


the implication [a,e G ==> Ba, = ] could reduce the proof to showing 


#25) 
g,€ G, if it were known that Be C. This is not known, so Be C becomes the 
head of a subordinate tree. The scan continues and finds that due to hypoth- 
esis a reduction of this line is Be G. This is an assumption made in the 
course of the proof, so the head of the subordinate tree is verified, and 
subsequently the desired implication appears on table I as a generated lemma. 


Continuing the scan, the proof is reduced to showing a,e G, an assumption, 


2 
thus establishing the theorem. 

Diagrams IIc through IIe are mostly self-explanatory. Diagram IIc de- 
picts the determination of substitutions, and shows clearly that the logical 
constant EQUAL suppresses substitutions in one direction. Note also that the 
associativity axiom, which can be stated using an equality headed by EQUAL2, 
can also be stated using a term of one argument, ASSOC (which is given a 
null definition), in order that the matching may be carried out by a more 
efficient, special-purpose subroutine. The actual creation of reductions 
which are substitution instances is shown in Diagram IId, and it should be 
observed that substitutions are only made in the left half, or first argument, 
of equalities on the proof tree. This particular heuristic, along with many 
others, will be discussed in Chapter IV. This concludes the exposition of the 
scanning subroutine. 

The subroutines which add entries to table I and II, PUTON1 and PUTON2, 
are outlined in Diagrams III and IV. Both routines add an appropriate prop- 
erty list to the statement being added to a table, though the details of this 
bookkeeping are not all given in the flow charts. Note that both routines 
subdivide conjunctions and biconditionals, though PUTON2 also retains the 
original line and puts it on the proof tree in status SIM. Both diagrams 


contain references to the MODEL heuristic, to be introduced in the next 
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(Let U be the line 
to be put on table I) 
Is U headed by p PUTONI both arguments of main 
AND or IMPLIES2? 
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class fixed unless U is part 


No 
ee io un Gable of original two hypotheses 
No Return (If first call to PUTONL 
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Diagram III 


Flow chart for PUTONL 
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Flow chart for PUTON2 
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msepAS To. Tete Se ete 


chapter. This is the heuristic restricting creation of some subordinate 
trees. 

PUTON1 compiles lists of certain information in order that searches of 
table I in its entirety may be held to a minimum, [t is also clear from 
Diagram III that when a statement headed by an existential quantifier is added 
to table I, an instance of it is immediately derived and added to table I — 
a process corresponding to the classical operation of existential specifica- 
tion. (Existential generalization is not possible in ADEPT without the addi- 
tion of a special axiom as part of the hypotheses.) 

There is one step on Diagram IV which uedivas use of the subroutine 
SOLVEX and thus, like one step in SCANW, will be explained when SOLVEX is 
discussed. Then there is mention of "built-in" axioms, and these are a heu- 
ristic feature added as ADEPT was developed. As will be seen in Chapter IV, 
this feature has been very useful, but ADEPT could theoretically run with no 
such axioms. . 

Diagrams III and IV indicate the possible ways that a proof tree line may 
become verified, thus initiating appropriate tree-pruning by reference to the 
structure reflected in the lists of line numbers of predecessors and reduc- 
tions in the property list of each table II entry. The simplest situation 
occurs when both arguments of an equality or implication being put on the 
proof tree are identical. Such a line is verified. Another case is when a 
line about to be put on table II as a reduction of some line n, is found to be 
already on table II and of status VER or VERST; i.e., verified. This causes 
appropriate tree-pruning starting with verification of line n. Otherwise, 
verification occurs only if a line appears on both table I and table II. This 
may come about in either of two ways. The line may be on table II and being 
put on table I as a newly-discovered "known" statement, or a line being put on 
the proof tree may already be on table I. The latter situation is extremely 
common, being the result of successfully reducing a statement to be proved to 
a statement already established. 


For the purpose of checking whether or not a line is on both tables, the 
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different logical constants used to express equalities may be considered 
identical. While EQUAL and FEQUAL are used to achieve certain special process- 
ing of statements in which they appear, clearly their presence should not pre- 
vent verification of a table II equality which is on table I though expressed 
with a different logical constant. The heuristic use of the extra logical 
constants does not alter the fact that they all represent equality. 

Diagram I contains a call to a subroutine called SOLVEX in order to pro- 


cess lines of the form ( da,)Pa This subroutine's effects have also been 


1. 
noticed in the flow charts for SCANW and PUTON2. It attempts to "solve" a 


line of the indicated form, for a value of a As indicated in Chapter II, it 


1 
is organized in terms of special cases. The current version will only handle 


Pa) of the form P' =) P"' or P' — P" where either P' or P' but not both con- 


tains a or Pa, of the forma 


ie 1 ie A & Qa, (or Qa, & aye A) where Qa, is one of 


the admissible Pa,'s just described. Such a line is put into the form Ota, = 


1 
Q", and the conjunct aye A, if any, is separated. The reordered line is 
checked to see if the equality can be solved for ay by "multiplying" both 
sides by proper inverses. For instance, aaa, = a, can be solved to obtain 
a, = ay aa (Note that this subroutine assumes that all inverses are 
defined, and therefore cannot be used for theorems about semigroups. A check 
to determine the routine's applicability, though not included in the program 
at present, could easily be made using the list of sets known to be groups 
that is created by PUTON1.) If a solution is obtained the line either will 

be verified, or the indicated substitution instance of aye A added to the 
proof tree as a reduction of the line under consideration, whichever is appro- 
priate. If no solution is found, the line is checked to see if it is of the 
form Qra, = Qia,, in which case again it is either verified, or the reduction 
aye A added to the proof tree. If this also fails, a scan is done, with the 
arguments LL and L of SCANW "on" (i.e., not null), and if a conjunct aye A was 
detached from the line, L is set to precisely that conjunct. Whenever a new 


line of the form ( Ja,)P'a is put on the proof tree in the course of this 


t 


scan, it is checked to see if it can be solved in one of the two ways mentioned. 
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This is the call to SLVX indicated in Diagram IV. If so, the scan ends just 
as if the proof were complete, and control returns to SOLVEX, which proceeds 


essentially as though the original line had been solved for a All the lines 


created of the form (Ja,)P'a, during the scan are removed from further con- 
sideration; in fact, they are printed out at that time and completely removed 
from table II. If the scan ends without creating a line which can be solved, 
control returns to SOLVEX and then to the main routine which acts accordingly, 
as shown in Diagram I. 

It remains to discuss the role of SCNX, mentioned in Diagram IIb. If 


during a scan initiated by SOLVEX, a substitution could be made in a line 


(qa) )Pta, (i.e., in Pia,) if only a,e A, and L is "a,e A", control is passed 


1 1 
by SCANW to SCNX, which allows the substitution and resets L. This is best 


described by an example. Suppose that the statement a,¢ A ==> (Ja,) 


1 


[a,¢€ B& a, = a,C] is on table I (one part of the definition of a factor group 


l 
A = B/C), and that the line of table II being considered by SOLVEX is (Ja,) 


[aye A& f, (a)) = as], where a, is being used as a constant. This will be 


3 
"reordered" as (Ja,) ff, (@) = a3] and L set to "aye A". (Clearly the scan 


will occur, as £, (a,) = a, cannot be solved directly.) The scan will observe 


3 


that the substitution of a,c (or more precisely, an instance of a,c obtained 


after an application of existential specification) for a, could take place if 


1 


aie A were established. SCNX receives control and adds the line (Ja,) 


[£, (aC) = a,] to the proof tree, sets L to "ay€ B', and saves the information 
that this substitution has been made. This suffices to illustrate the opera- 
tion of SCNX, but it will be profitable to continue this example further. 


Perhaps f, is a map from B/C to D/E defined by £, (a,¢) = £, (a,)E, for some 


l 
map fy taking B onto D. So, if ae D/E, the lines (Ja) [£, (a,¢) 7 a,E], 


(Ja,) [f, (a, )E = a,E], and (3 ay) [£, (a, )E = £, (@5)E] might be generated. 


The last of these can be solved, giving ay = a5 (for this possibly non-unique 


a. such that £, (a5) = ays where a, = a,E), and SCANW will now return control 


5 3 


to SOLVEX, which will make use of the information stored by SCNX that a,c was 


substituted for a> and put on the proof tree as a reduction of the original 
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line (Fa) [a,e A& £, (a,) = ay] the line a,c € A. This "change of variables" 
procedure, which may be carried to any depth, is clearly very useful. 

In Diagram I there is also a reference to a subroutine HOMOMF, which deals 
with lines headed by FEQUAL. (The name HOMOMF was chosen because the routine 
is used in establishing homomorphisms.) HOMOMF's task is to attempt to verify 
the equality headed by FEQUAL by successive evaluation of the two arguments 
of the logical constant; i.e., the two sides of the equality. It evaluates 
the first argument, obtaining, if successful, a list of one or more evalua- 
tions, plus the original argument. It then starts to evaluate the second 
argument, stopping with success if an evaluation of the second argument is 
on the list of evaluations of the first. Evaluation is done by a call to 
SCANW, with table II augmented by a new "tree" headed by the argument to be 
evaluated. The use of FEQUAL and HOMOMF has proved to increase efficiency in 
the establishment of equalities similar to the one involved in demonstrating 
that a map is homomorphic. As an illustration, suppose that table I contains 
the hypothesis £, (a,) =e; i.e., fy maps everything into the identity. If a 
sufficient condition for a map's being a homomorphism, stated using FEQUAL, 
is entered into ADEPT's tables, then in the course of proving fy homomorphic 
HOMOMF will be asked to establish the equality £, (a,a3) =f £, (a,)f, (a3). The 
proof would proceed: £, (a,43) =e (evaluation of the first argument); 
£, (a, )£, (a3) = ee =e (q.e.d.). 

It is possible to write a supervisor to use the full power of ADEPT to 
solve a theorem with many sub-theorems. Such a program is ISOLVE, which uses 
ADEPT to establish isomorphisms between groups. A routine called GENFCN was 
written, which generates a canonical relation between two sets, given the 
hypotheses concerning the two sets (GENFCN also uses SCANW), and ISOLVE makes 
four calls to ADEPT to prove that the relation is (in this order) well-defined, 
homomorphic, epimorphic, and monomorphic. (Sometimes the relation generated by 
GENFCN is well-defined by construction, as in the case when the domain of the 
relation is simply a group G.) This program has been used to establish a 


number of isomorphisms, and these are the most impressive theorems proved by 
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the computer in the course of this project. (Incidentally, GENFCN works for 
sets but ISOLVE assumes that the sets are groups.) 


One fact about ISOLVE is of special interest. In order to prove a 


1 92 *&g = 


£, (a,)"*£, (@,) =e, is given to ADEPT. In general, to prove that fh is 


relation fi: G— H is well-defined, the problem a 


one-to-one requires establishment of the converse implication. However, since 


fi will first be shown to be a homomorphism (if fi isn't proved to be homo- 


morphic, or if any one of the four proofs is not successfully completed, ISOLVE 


goes no further), one may take advantage of the theorem which states that for 
a homomorphism fi5 f, is one-to-one if and only if its kernel reduces to the 
identity. That is, ISOLVE is justified in presenting ADEPT with the problem 
£, (4) =e, =a> a, > eg» and in fact, this is exactly how it has been pro- 


grammed to prove f, monomorphic, for this latter implication usually can be 


1 
proved more easily. Equivalently, ADEPT could be programmed to include the 
heuristic — "when asked to prove that a function fh is one-to-one, make use 


of (the above theorem) whenever it is known that fy is a homomorphism". 
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CHAPTER IV 


SPECIAL-PURPOSE HEURISTICS 


THE DYNAMIC PROCESS OF USING AND CREATING ADEPT 


The heuristic philosophy adopted for the ADEPT project has already been 
expounded, and certain of the program's heuristic features have become appar- 
ent in the previous chapters. The original version of the program contained 
relatively few heuristics, inasmuch as the purpose of the development of ADEPT 
was to discover the difficulties which arise in the attempt to prove theorems 
of group theory by computer, and then to devise means by which to overcome 
these obstacles. Thus it is pertinent to discuss not only the current version 
of the program, but also the development of this version, and some of the 
previous states of the program. By this, of course, is not meant a revelation 
of such data as the state of the program when the ability (SOLVEX) to handle 
problems involving certain statements headed by an existential quantifier was 
added, but rather a discussion of heuristics and features which were developed 
to cope with previous lack of capability or efficiency on the part of ADEPT. 
Thus this chapter supplements the previous one in giving further description 
of the program, concentrating on those features whose addition was prompted by 
information obtained while experimenting with early versions of ADEPT. 

One such addition has been described in Chapter III, since it is pres- 
ently an important part of the operation of SCANW. This is the simultaneous 
performance of related substitutions, a heuristic which eliminates many previ- 
ous instances of inefficiency in favor of very natural steps combining oper- 
ations. 

Another good example, and a simple one, is reflected in Diagram I, and 
happens to represent the first difficulty which arose in this project. Ini- 


tially, the program only put instances of definitions on table I as a result 
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of processing the line of status PNT. But, as is shown in Diagram I, when 
ADEPT has explored the consequences of all such instances without success, it 
now considers all terms in the first hypothesis of the problem and obtains the 
appropriate definition instances for them. Such action was not necessary in 
the proof that the kernel of a homomorphism is a submonoid, for instance, but 
it is required in order to prove that the center of a group is abelian. In 
this example, line (1) of the proof tree, (ABELIAN C G) is reduced to the 
implication which is the indicated instance of the definition of abelian, which 
is promptly split, thus obtaining line (3), (EQUAL2 (*PROD Cl C2 G) 

(*PROD C2 Cl G)) which becomes the first line of status PNT to be searched 

for terms and constants. But no explicit mention of C appears in this line, 
and since the proof requires the addition of an instance of the definition of 
center to table I, the examination of the terms of the first hypothesis takes 
place, and the proof is subsequently completed. 

Note that the implementation of this heuristic assumes the use of 
non-asterisked terms to some extent. For instance, if (CENTER C G) had not 
been included in the hypotheses of the above example, but instead the conclu- 
sion had been stated (ABELIAN (*CENTER G) G), the heuristic as programmed 
would have failed. To remedy this, and to implement the heuristic in a more 
general form which will have the same effect independent of notation, all 
asterisked terms of the conclusion should be examined along with the terms of 
the first hypothesis. 

The difficulties which suggested this heuristic reflect a second need for 
augmenting the "working backward" approach with a certain amount of "working 
forward". (The generation of lemmas, of course, is the first and primary 
example.) In other words, a procedure which only reduces desired conclusions 
to established statements is not adequate for handling theorems of group 
theory. Some recourse must be made to the derivation of statements from the 
hypotheses, axioms, etc. Table II, the proof tree, cannot develop suffi- 
ciently without such derivations, which cause expansion of table I. However, 


such expansion must be controlled. Lemmas are generated only if they will be 


53 


of immediate use. In the same spirit, it is important to note that a check of 
terms in the hypotheses is not done until the usual procedures prove inade- 
quate for a given problem. 

The whole question of when to obtain what information from the condition 
and definition tables is a problem of information retrieval. In harder theo- 
rems requiring a larger base of information, this problem could become quite 
critical. Some comments on this, and some alternative methods of placing and 
using definition instances on table I, will be given in Chapter VIII. 

Another instance of a change which was made in the course of the develop- 
ment of ADEPT was also seen in the flow diagrams of SCANW, in particular, in 
Diagram IId. This is the heuristic which provides that reductions obtained by 
substitutions in an equality on table II are created by substituting only in 
the first argument of the equality. In other words, if a line on the proof 
tree has the form P = Q, substitutions are made only in P. The rationale 
behind this restriction is illustrated by an example. If it is known explic- 
= P 


itly that P = Pie P P,P = QW seep Q = Q (where none of 
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the expressions are identical, and no other equivalences are as yet explicit- 
ly "known"; i.e., on table I), a proof of P = Q with the heuristic under dis- 
cussion takes 2n steps. If substitutions are permitted in Q also, and no 
other heuristic is introduced to order substitutions, a proof of P = Q might 


proceed as follows: P =Q-> Py =Q-——>P, =Q— 


2 
P29. 2 = 0) => 


a process which will require on the order of n? steps. 

In return for the potential reduction of the number of steps, or at least 
for release from the need to discover more sophisticated heuristics, there 
would be, in theory, no cost if all equalities were treated symmetrically. 

But such is not the case in ADEPT when use is made of EQUAL. However, even if 
all equalities were headed by EQUAL2, there is a price to be paid in practice. 
Consider the proof that the map which takes every element of a group G into 


the identity is a homomorphism. This proof was discussed in the previous 
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chapter as an example of the use of FEQUAL. However, suppose the equality 
expressing the property of being homomorphic is stated using EQUAL2. Then the 
heuristic of substituting only in the left-hand side requires the proof to 
proceed: £, (g,8,) =e = ee = £, (gf, (g,)- But this series of steps, using 
only the hypothesis £, (a,) ™ e and the definition of identity, requires 
planning heuristics of a comparatively involved nature. For instance, to 
reduce the line e = £, (g,)f, (,) to the line ee = f, (s,)£, @,) requires ex- 
pansion of e to ee, which might be accomplished upon analysis of the 
right-hand side of the equality. Even more difficult to program would be the 
efficient execution of the substitutions needed to establish the final result. 
(None of the expansions would normally be allowed, since the hypothesis de- 
fining fi would most naturally be stated using EQUAL, not EQUAL2, as would the 
definition of identity.) Admittedly, this problem is primarily an example of 
the worth of the use of FEQUAL, but it does show the kind of difficulty which 
can arise due to the restriction on substitutions in equalities on the proof 
tree. 

There is one heuristic which was included in the original program, and 
which has been retained because of its success. This particular feature is a 
restriction included in ADEPT's matching subroutine, and thus was not encoun- 
tered in Chapter III. Incidentally, the matching process used is basically 
recursive and no attempt has been made to optimize it, yet it suffices quite 
well. The restriction concerns the case where a single variable is being 
matched against a line or part of a line on the proof tree. In other words, 
all occurrences of objects, of the same type as the variable, appearing in 
some table II line are desired, In this event, the variable is matched only 
with simple variables or constants, not with compound objects. This case is 
not to be confused with the matching of variables within a more complex ex- 
pression being matched against a line of the proof tree; such variables will 
be matched with any object of the appropriate type. Thus, if all reductions 
made possible by a table I entry (EQUAL Al (*INVERSE Al G)) are desired from 


1 


the line (MEMBER (*PROD A2 A3 G) H), substitutions of a‘ for a, and a, for 
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a, will be made, but the substitution of (aya ae for a will not be con- 


3 3 233 
sidered. However, the Al in an expression such as (*PROD Al A2 G) may be 
matched with any member object. 

This heuristic has the obvious effect of controlling the expansion of a 
proof tree in any problem in which it is applicable. In only one theorem pre 
sented to ADEPT did it cause any unwanted effects, so it is certainly to be 
considered advantageous. (The one difficulty necessitated the explicit defi- 
nition of the inverse image of a point, as opposed to the use of (ie aeneral 
definition of the inverse image of a set in conjunction with the definition 
of a unitset or singleton; i.e., a set with one member.) 

Perhaps the most important and revealing addition to the program is one 
which occurred in stages. As alluded to in the previous chapter, the first 
implementation of ADEPT had no identities or definitions "built into" the 
program. Thus simplification of a product involving the identity element 
could not be accomplished until the term *IDENTITY was encountered and the 
corresponding instance of its definition put on table I. Also, certain facts, 
such as "£, (e) = e when fy is a homomorphism", had to be included with the 
hypotheses for some problems, for ADEPT is not able to set up the "construc- 
tions" necessary to prove these facts. Clearly, this forced the program to be 
quite inefficient in proving theorems. Such a simple-minded procedure does, 
however, emulate the student who is a complete beginner at group theory. 

Just as a student must assimilate simple identities involving identities, 
inverses, homomorphisms, etc., it does not take long before the problems in 
group theory demand facility with these facts if efficient proofs are to be 
found. It was clear that ADEPT could not become proficient and handle harder 
problems unless these identities could be applied more sensibly. Accordingly 
a routine was introduced (into PUTON2, see Diagram IV) to check each line being 
put on the proof tree to see if certain identities could be applied. As the 
number of theorems presented to ADEPT increased, it became clear which iden- 
tities should be dealt with in this way, and the routine under discussion 


expanded gradually. Besides the advantage of a more natural development of 
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the proof tree, this routine offered an opportunity to make this use of 
matching procedures more efficient. This is so because the identities to be 
matched are not arbitrary, but fixed, and a special-purpose matching routine 
can be easily implemented and used instead of the general matching routine 
used by SCANW. In ADEPT's most recent version, matching is greatly speeded 
up by a key-word check between the identity and the line of the proof tree. 
The current set of identities handled in this way is divided into two 
classes, according to the action taken if a match is found. The first set 
causes a true simplification; i.e., a new line is created as a reduction of 
the old line, and the status of the original line is changed to SIM. This 
set contains the facts ee <-e, ea e< a), aja Ok ge e, ae 
-1l,-1 


Bas dese it 
(a, ) <_ ay and a =e. There is also a subroutine by which products 


a, <—e, 


1 1 1 


of arbitrary association are checked according to these identities. Thus the 


product (a,a,)a,"" will be simplified to a, even though the binary nature of 


2 


-1 
the operation does not allow direct application of the identity aya) <—e. 
(This subroutine obviously relies upon the assumption of associativity.) 


The second set of identities merely causes new lines to be put on the 


proof tree, without declaring the original line unworthy of further consider- 


=. =f 
a : 


-1 
ation. In this set presently are the following facts: (a 145) => ay 1? 


if f£, is homomorphic, £, (e) <e, £, @,*) =) PGi £ (a145 =) 

£, (a))£, (5); if A/B is a factor group, a, 'B =5 (a,B)"*, (a,a5)B = 

(a,B) (a,B). Application of these identities is expediated by the lists of 
factor groups and homomorphic maps created by PUTON1. 

It is revealing to note the analogy here between what is essentially a 
transition from interpretive to compiled application of these identities with 
the corresponding development in the methods used by a student in making such 
étepac 

The problem of deciding when a line on the proof tree has been success- 
fully processed, even though the theorem may be not yet proved, is a very 


difficult one. For a general theorem-prover, this problem is closely related 


to the question of deciding which branch of the tree it would be most 
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profitable to investigate first. In ADEPT, the problem is sharpened; from a 
given line on the proof tree reductions should be generated until and only 
until the one which is "correct" is generated. This is one manifestation of 
the goal of having the program appear as though it understands where it is in 
the course of a proof. It turns out that there are heuristics which are fair- 
ly successful in this regard for a wide range of theorems. Unfortunately, 
their effectiveness decreases rapidly when irrelevant hypotheses are intro- 
duced. Without any heuristics, even problems with a minimal set of hypotheses 
have inefficient proofs, but while the schemes about to be discussed usually 
remedy that situation, they are of limited worth with regard to overspecified 
problems. 

The "progress" heuristics used by ADEPT are few, and range from trivial 
to subtle and controversial. In the first category are rules such as consid- 
ering a line on the proof tree of the form P = Q processed when an instance 
of the antecedent P is put on table I and the corresponding instance of Q 
becomes the reduction of the implication. In fact no other processing is 
allowed on such a line except for verification if the same line P => Q ap- 
pears on table I. Similarly, a line headed by EXISTS or FEQUAL is processed 
only by the special-purpose subroutines SOLVEX and HOMOMF respectively. 

The major difficulty occurs with lines of a general nature, e.g., equal- 
ities or lines of the form a,e A. If such a line is not verified, it never 
can be declared to be sufficiently processed unless some heuristic is employed. 
Two have been tried with ADEPT. Both provide for "progress" only after a line 
of the proof tree has had a reduction introduced by detachment. But not all 
such reductions cause "progress" to be declared. A detailed description of 
the heuristics will make this clearer. Suppose that line n of the proof tree 
is under current consideration; i.e., of status PNT. Heuristic A provides 
that when the scan is called, all entries of table II from line n onward shall 
be processed, and as soon as the line of status PNT gives rise to a reduction 
by detachment it shall be declared to need no further processing if and only 


if the line of status PNT is the lone reduction of its immediate predecessor 
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(not counting co-conjuncts if the predecessor is a conjunction). If this is 
the case, the next table II line of status REL immediately takes on status PNT 
and the scan continues. Any line not of status PNT which obtains a reduction 
using detachment is not given any special treatment. Heuristic’ B provides 
that first only line n shall be scanned, and after it is completely processed 
by all table I entries, the scan shall stop if line n has given rise to one or 
more reductions via detachment. What is more, after an instance of detachment 
occurs due to a table I implication, no further table I equalities in the same 
logical class as the implication will be used to create substitution instances 
of line n. If detachment occurs, once the scan of line n is completed control 
will be returned to the main routine, which will move the pointer down; i.e., 
"progress" will be declared. If no detachment occurs, the scan will continue 
through all the rest of table II, and any line of status REL giving rise to a 
reduction using detachment will be put in status RELI, so that it cannot take 
on status PNT at any later time. The restriction on creation of reductions by 
substitution after instances of detachment also remains in force as the rest 
of table II is processed. 

Heuristic A is clearly syntactic, being based on the structure of the 
proof tree preceding line n. It proceeds on the assumption that if the proof 
tree has been developing in a straight-line fashion, it is safe to proceed as 
though it were inevitable that the proof would continue in this fashion. Con- 
versely, if the proof is full of alternative branches, the heuristic says that 
caution must be observed. It is clear that irrelevant hypotheses render heu- 
ristic A ineffective, for extra table I entries cause excess branching in the 
proof tree, unnecessary though it may be, and thus heuristic A will not cause 
"progress" to be declared as often as it should. , 

Heuristic B is the one currently in use in ADEPT, as was seen in Didgram 
II. It also gives special consideration to occurrences of detachment, but it 
does not refer to the shape of the tree. Unlike heuristic A, it takes notice 
of applications of detachment to lines other than the one of status PNT. Since 


it prevents some lines from ever taking on status PNT, unnecessary uses of 
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detachment can be harmful. Thus heuristic B is also adversely influenced by 
unnecessary hypotheses, but only if they contain implications. This slightly 
greater degree of insensitivity is of some advantage, and another factor in 
heuristic B's favor is the greater amount of processing allowed on a line of 
status PNT, so that it can continue to give rise to reductions even though one 
reduction of it has been created using detachment. To allow total processing 
to continue would be too inefficient, however, so the restriction involving 
logical classes has been introduced. An example will clarify the reasoning 
behind heuristic B, and the theorems which will be discussed in the following 
chapters will serve to indicate shortcomings of this strategy. In particular, 
the third part of the first example of Chapter VI shows the one situation 
encountered to date where the logical class restriction fails completely. 
Consider the theorem stating that the image I of a group G under a 
homomorphism f,. is a subgroup of the range of fi: In the course of proving 
this theorem, ADEPT must show closure of the image under composition; in par- 
ticular, having fixed by and by as members of I, it must be shown that byb, 
is a member of I. The relevant instance of the definition of image is 
a,e I <=> (Jay) [ayé G& FE (ay) = aj], which becomes two implications on 


1 


table I in the same logical class. One of these causes an occurrence of de- 


tachment, reducing b,b,e I to (4a) [aye G& £, (a) = bby]. This happens to 
be the “correct" step, leading to a proof of minimal length, and is but one 
instance of advantageous applications of detachment which have led to the 
affirmation of a connection between detachment and "progress", as shown in 
the two progress heuristics. Now, the converse implication on table I leads 
to a substitution instance of bbe I that could be put on the proof tree, 
namely f, (g,)£, (,) e I, where By and B> are members of G which are mapped by 
f, into by and by respectively. This branch would lead to a parallel proof, 
doubling ADEPT's efforts, and it is this kind of proliferation which the 
logical class restriction was introduced to prevent. Indeed, the vast major- 


ity of the time this particular feature of heuristic B achieves exactly the 


proper effect. (Note that the success of this procedure depends upon the 
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detachment's being made before the substitutions are determined. This will be 
insured if the user puts all definitions which specify sets by their members 
in the form a,é A <=> Pa)» for PUTON! splits a biconditional P <== Q into 
Q ==> P and P ==> Q, in that order.) 

One more heuristic remains to be discussed in this chapter. It is a 
non-trivial one, though easy to implement, and it is present because of the 
nature of many definitions, namely, that they are of the form a,€ A <==> Pal; 


where. Pa, contains an equality of the form a 


1 = Q, for some object Q. When an 


1 
instance of such a definition is on table I, it is observed many times during 
a call to SCANW that a substitution of Q (or more precisely, some instance of 
é¢ A were 


Q) could be made for some variable or constant, say a if only a 


2? 2 
established. Consequently a great many subordinate trees are started on table 
IL, headed by a node of this form. Many of these nodes represent highly un- 
likely possibilities, and some are not just impossible to prove, but are 
actually incorrect. To remedy this, a lattice or model of the sets involved 
can now be built by ADEPT using information stored with the definitions of 
various kinds of sets. This lattice is used only to cull out unlikely possi- 
bilities about to be put on table II in status ST. It is not used for the 
purpose of verifying a line on the proof tree, in order that all proofs may be 
developed by the operations on the statements on tables I and II. An example 
will show what this heuristic does and does not do. With the definition of a 
factor group A = B/C is stored the following information: A, B™C. This 
indicates that C is a subset of B, and that B and A have no members in common. 


(The definition of a map f A —> B is accompanied by the information A, B. 


L 
This indicates that there is no reason to assume that the sets A and B are 
not disjoint.) Similarly for a sub-factor group D = E/G of a factor group 
I/G, the definition is augmented by the information D, ILD E™G. So if the 
hypotheses of a problem provide that A = G/H, B = G/K, C = H/K, D = B/C, and 
1G, ADEPT can construct the model D, A, BOC, GDH DK. This lattice 
N} 


I 


will be used in conjunction with other hypotheses about variables and 
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constants. For instance, suppose a is known to be in H. Then the state- 

ment a,¢ B will be ruled out by a simple reference to the lattice. as K will | 
be discarded as unlikely, for a general member of H can seldom be shown to be 

a member of a particular subset of H. a,¢ G will be allowed, but not automat 


ically verified. a,e I will be allowed, since it is quite possible, and such 


1 
a statement is often provable in group-theoretic problems (as opposed to 
aie K). 

This heuristic only examines lines of the form a,¢ A where a) is a simple 
variable or constant, as opposed to a compound object such as a product. This 
is so mainly because of the difficulty of formulating and applying rules for 
accepting or rejecting the more complex statements : For instance, suppose 
that a and a, are both members of G and H is a subset of G. Even though it 
is reasonable to exclude statements such a“ a,é H with almost any specification 
of H, as long as it is a proper subgroup of G, it is not always wise to exclude 
the statement a)4,¢ H. To be sure, often this is also a fruitless head for a 


subordinate tree, but H might be a set such as the coset a,J, where J is some 


1 
other subset of G. Another restriction on the heuristic's applicability is 
that it is not used to examine proposed lines for the main proof tree. If it 
were, it would be impossible to use ADEPT to prove such facts as "the center C 
of an abelian group G is the whole group." In this problem, it is known from 
the definition of center that C is a subset of G, and it must be shown that 
any member a of G is a member of C. Clearly the heuristic must not be allowed 
to prevent the necessary conclusion from being placed on the proof tree! For- 
tunately, the heuristic serves its purpose quite adequately, though it is re- 
stricted to apply only to lines of the form a,¢ A about to be put on subordi- 


nate trees, where a, is a simple variable or constant. 


1 
This feature, known as the MODEL heuristic, was implemented so that it 

can be used or not as desired. Tests with isomorphism problems have shown a 

steady decrease of about 1/3 in the length of a proof, with all lines discarded 


being indeed irrelevant. The decrease in processing time was nearly the same, © 


being only slightly less, due to the nature of the information to be handled 
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in the lattice, which allows very fast processing of this heuristic. Clearly 
because of the nature of many definitions in group theory and modern algebra 
in general, this is an important special-purpose feature. 

Though the MODEL heuristic is an important addition to ADEPT because the 
single operation it performs is so often desirable, it is not a profound exam- 
ple of the use of a semantic model. Such models are not uncommon in 
theorem-proving. A simple example would be the augmentation of a proposition- 
al calculus theorem-prover with a subroutine which tested a proposed line by 
evaluating it using one of the possible assignments of truth-values to its 
variables. The best-known example of the use of a semantic model is the 
“diagram” in Gelernter's geometry-theorem proving machine. ©*) This program 
and its use of a model is discussed in Appendix I. In general, heuristic pro- 
grams for proving theorems often can be improved by inclusion of some model 
of the intended interpretation of its domain, to act as a filter or guide for 
using the more syntactic procedures in the algorithm. 

Other insights have been gained during the course of this project. Be- 
cause they did not lead to the addition of important heuristics, and because 
they are best discussed in the light of particular examples, they are not 
considered here, but postponed until the next chapter, which discusses select- 


ed theorems successfully proved by ADEPT. 
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CHAPTER V 


DISCUSSION OF SELECTED PROBLEMS 


ADEPT has been used successfully to prove nearly 100 theorems. To be 
sure, some of these have been very simple problems, but many have been of a 
relatively involved nature. 17 have been proofs of isomorphisms by ISOLVE, 
each of which involves at least 3 if not 4 separate sub-theorems (depending on 
whether or not the relation requires explicit proof that it is well-defined). 
The greatest number of nodes in a proof tree was 73 (see the third problem dis- 
cussed in this chapter), and no single proof by ADEPT took more than 6% minutes 
of computer time, though the composite isomorphism theorems took up to 9 min- 
utes. Among the more complicated theorems not described in this chapter were 
proofs that (aja) is the same set as hay, and that for a homomorphism fi> 
{£,7*@,)} is the same set as ak, where K is the kernel of fh: Other lengthy 
proofs completed by ADEPT are parts of theorems which cannot be done in en- 
tirety by the present program, and will be discussed when inadequacies of 
ADEPT are considered in a later chapter. Not counting the isomorphism theo- 
rems, only 4 proofs took over 2 minutes of computer time; 4 contained 30 or 
more nodes in the proof tree. (In the intersection of these two classes of 
difficult theorems were 3 problems.) 

The particular problems discussed in this chapter are presented either 
because they serve as excellent illustrations of various features of ADEPT, or 
because the problems themselves are of interest, particularly those into which 


a special insight has been obtained through their use as examples for ADEPT. 
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Problem V-A 


One group of problems presented to ADEPT is concerned with intersections 
of subgroups: 
1) The intersection of two subgroups of a group is itself 
a subgroup. 
2) The intersection of two normal subgroups is itself normal. 
3) The intersection of a normal subgroup and an arbitrary 
subgroup is normal in the arbitrary subgroup. 

Consider the last of these from the point of view of stating it formally. 
There are many possibilities. One is to say in effect —~ "let I be the inter- 
section of H and J, where H is normal in G and J is a subgroup of G; prove 
that I is normal in J." This statement may appear to omit some of the con- 
tent of 3) above (e.g., G is not stated to be a group, and H is not stated to 
be a subgroup), and indeed it does if one must state explicitly all supporting 
assumptions. But the facts that H is a subgroup of G and that G is a group 
are not used explicitly in the proof of this theorem. However, the definition 
of normality implicitly assumes that the set in question is a subset of a 
group, because it only makes sense if inverses are defined. (A normal set 
itself may not necessarily be a subgroup, according to this interpretation.) 

These remarks about assumptions have been made just because the proof of 
3) can be carried out using the above statement provided that it is assumed 
that all definitions make sense. This is the way ADEPT has proved this theo- 
rem. The proof is now exhibited, following which a discussion of the conse- 
quences of explicitly stating the additional justifying hypotheses is pre- 
sented. 

The hypotheses are put on table I: i) IL is the intersection of H and J, 
ii) H is normal in G, and iii) J is a subgroup of G. The first line of table 


II, the proof tree, is (1) I is normal in J. From the definition of normality 
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(Circled line numbers indicate references to previously existing lines.) 


Figure 3 


Proof tree for Problem V-A 
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eI ==> (a,a,)a," I. Assuming an instance of the 


is obtained (2) a,e J& a) 
antecedent results in the addition of iv) 4, J and v) jJ,¢ I to table I and of 
(3) Giy4)4q I to the proof tree, where Jy and jy are constants. Status PNT 
is given to this line. No steps are possible from the hypotheses on table I as 
it stands. The set constant I is identified by 1) and the appropriate instance 
of the definition of intersection is added to table I: vi) a,é Hé& aye J => 
a,¢ I and vii) a ¢ I ==> a,¢ He aye J. Thus (4) (y39)31 H& (345,)5, 7" J 
goes on table II, and it is split into (5) (43,5, H and (6) (4355, @ J. 
This application of detachment to (3) causes status PNT to be given to the next 
line on the proof tree of status REL as soon as all other reductions that can 
be made from (3) are completed. Since no further steps are possible, the proof 
continues by examining (5) (since (4) has been disposed of by splitting). 

Again no progress is possible from table I as it stands. The constant H in (5) 
Me H, an instance of the definition of 


causes viii) aye G &éa,¢€ H ==> (a 


2 192) 
normality, to be put on table I because of ii). Then the proof tree is aug- 
mented by (7) j,§ G & j,¢ H, which yields (8) 4,¢ G and (9) joe H. Work is 
now completed on line (5), and line (6) is placed in status PNT. Table I as 
it stands can cause further progress on table II (all lines from (6) to the 
end will be considered by SCANW), namely from line (9) is created (10) Jo¢ I, 
which is verified (line v) on table L) and therefore line (9) is also verified. 


Line (6) must now be examined in detail, and the definition of J is added to 


table I: ix) a,é J ==> a 


“1 
1 


j,5,¢ 5 & iors J, which become (12) j 


eG, x) a,¢ JI &a.eJ => a,a,e J, xi) e,¢ J, and 


1 2 12 


xii) a,éJ => a, ¢ J. This leads to the following reduction of (6): (11) 


1526 J and (13) iy ve J. This completes 
consideration of line (6). The next line of. status REL is line (8), and it 
takes on status PNT. Table I as it is yields (14) j,¢ J as a reduction of (8). 
Line iv) of table I is verification of this, which results in verification of 
(7), since the other conjunct of (7) is the already verified line (9). Thus 
line (5) is verified. Line (12) is the next line to take on status PNT. From 


vii) on table I is obtained (15) j,j,€ I, and then from x), (16) 4,¢ J & j,¢ J. 


Je 
As (16) is split, it is seen that 4,6 J is line (14), already verified, and the 
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lone reduction of (16) becomes (17) j\é J. Next line (13) is scanned, yield- 
ing (18) ie I and a reference to line (14), and thus line (13) is verified. 
Attention moves to line (15), which suggests (19) j,i,¢ H& j,i,¢ J. This 
fruitless move is not avoided by ADEPT, and it yields (20) j,i,¢ H and a cir- 
cular reference to (12). Line (17) is now considered, and vii) on table I 
gives a reference to line (10), which is verified, thus causing a chain of 
verification leading through (17), (16), (12), (11), (6), (4), @), (2), (1), 
and the proof is complete. The final proof tree is shown in Figure 3. Lines 
(15), (18), (19), and (20) were unnecessary. 

Now suppose that the hypothesis that H is a subgroup of G had been stated 
explicitly. Line (5) would then have two reductions — the one due to the 
normality of H (line (7) above, which is split into (8) and (9)), and another 
due to the hypothesis that H is a subgroup — namely (10') j,4,¢ Hé& ie H, 
which is a useless step. (10') immediately is split into (11') and (12'). In 
fact, not only is extra work generated, but ADEPT, with its one-pass organiza- 
tion, is unable to prove the theorem at all. The extra hypothesis confounds 
the algorithm as follows: 

After line (5) is processed, line (6) is put into status PNT due to the 
two applications of detachment to (5). Before the terms and constants of (6) 
are examined, a scan is done, and line (8) is seen to generate the reduction 
(13') i,é H by application of detachment using the conjunct of the definition 
of H as a subgroup which states that H is a subset of G. Line (8) is therefore 
marked unworthy of further processing by putting it in status REL1. After 
further lines are generated by the scan, the constants of line (6) are finally 
examined, and the instance of the definition of subgroup due to the fact that 
J is a subgroup is put on table I. This suffices to process line (6), as in 
the proof just presented. But the next line of status REL is no longer line 
(8), and the assignment of status PNT is made to a later line on the proof 
tree, thus providing that line (8) never can be scanned by the axioms saying 
"J is a subgroup". The proof above shows that verification of line (8) is a 


necessary part of the proof, and that it is verified because J is a subgroup 
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of G. ADEPT has passed over this crucial line, and therefore can not produce 
a proof of this version of the theorem. 

For the problem of proving that the intersection of two normal subgroups 
is normal, the introduction of explicit but unnecessary hypotheses (namely that 
the two normal sets are in fact subgroups) causes ADEPT to do extra work but 
does not cause the program to be unable to supply a proof. The ADEPT algorithm 
is unaffected by the manner of statement of the problem that the intersection 
of two normal subgroups of a group is again a subgroup of that group. As a 
matter of fact, this proof is done without a single unnecessary line; i.e., all 


lines on the proof tree contribute to the verification of the head of the tree. 
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Problem V-B 


The second problem to be examined in detail is a rather simple one, 
though, like the previous example, it cannot be proved by ADEPT if given an 
unnecessary hypothesis. The proof will be discussed, and a reproduction of 
the actual output from ADEPT is provided. (Note that table I is not printed 
out in serial order, and that the symbols VERA2 and A2 are used for the sta- 
tuses VERST and ST.) Also to be noted in this example is a detail involving 
the implementation of the simultaneous performance of related substitutions. 

Theorem: A subset H of an abelian group G is normal. 

Proof: It suffices to show that if a,¢G and aie H, then (a,a,)a, "¢ H. 
Assuming an instance of the antecedent, it remains to prove the corresponding 
instance of the consequent. In dealing with a particular instance, ADEPT has 
to generate new symbols internally, which are specified to be constants. The 
symbols G04088 and G04089 seen in the output are the symbols created. by ADEPT 
for this purpose. For the following discussion, A3 and A4 will be used in- 
stead. Thus Line (3) would appear as (MEMBER (*PROD (*PROD A3 A4 G) 

(INVERSE A3 G) G) H), or in mathematical notation, (a,a,)a,€ H. A check of 
the terms of this line causes no action, since MEMBER has a null sufficient 
condition and definition, *PROD has a null definition, and there is no defini- 
tion of *INVERSE in ADEPT's table. (The latter is effectively compiled into 
PUTON2 by means of "built-in" axioms, as described in Chapter IV.) Examination 
of the constants of (3) yields two set constants G and H which are defined by 
three statements on table I. Therefore instances of the corresponding defini- 


tions appear on table I, as indicated below (using mathematical notation): 


vi) ae G& a,¢ G ==> aja, = 4,8, (from ii), (ABELIAN G G)) 
vii) a,é Gé& aye G => a)a,€ G 
viii) G is associative (from iii), (GROUP G)) 
ix) e,¢ G 
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fone (subset h g) (and (abellan g g) (group g))) 
n 
(normal h g g) 


(((1_. 1) SUBSET HG) ((2 . 2) ABELIAN GG) ((3 . 3) GROUP 

G) (Ch . &) MEMBER GOKO88 G) ((5 . &) MEMBER GOK089 H) ((9 . 
10) MEMBER (#IDENTITY G) G) ((12 . 9) MEMBER (#PROD GOK088 
GOKN89 G) G) (C13. 9) MEMBER (eINVERSE GO8088 G) G) ((15 . 

9) MEMRER GO8N89 G)) 

(((6 . 9) IMPLIFS CAND (MEMBER Al G) (MEMBER A2 G)) (FOQUAL 
(*#PROD Al A2 G) (#PROD A2 Al G))) ((7 . 10) IMPLLFS (AND (MEMRER 
Al G) (MEMBER A2 G)) (MEMBFR (#PRON Al A2 G) G)) (C8. 10) 
ASSOC G) ((10.. 10) IMPLIFS (MEMBER Al G) (MEMBER (#INVERSF 

Al G) G)) (C11. 11) IMPLIFS (MEMBER Al WH) (MEMRFR Al G)) ( 
(1h. 9) FQUAL (#PRON (#PRON GOK088 GOKNRS G) CeINVERSE GOK088 
G) G) (#PROD CeINVERSE GOKO088 G) (#PRON GO%088 GO8089 G) G)) 
((16 . 9) EQUAL (#PROD GOKOSS GOKOES G) (#PROD GOKOSS GOKOEE 

7 

(CCVER (HFAD) (2 NONE) 1 &) NORMAL H GG) (CVER (1) (3 NONE) 

2 NILL) IMPLIES (AND (MEMBER Al G) (MEMBER A2 H)) (MEMBER ( 


*PRON (*#PROD Al AZ G) (*#INVERSE Al G) G) H))) 

CCCVER (2) (16 10 NONE) 3 12) MEMBER (#PROD (ePRON GOK088 GOK089 
G) C#INVERSE GOK088 G) G) H) (CVERA2 (HEAD) (5 NONE) & 12 6) 

ANN (MEMBER (#PROD G08088 GOK089 G) G) (MEMBER (INVERSE G04088 
G) G)) (CVERA2 (&) (11 7 NONE) 5 12) MEMBER (#PROD GO088 G04089 
G) G) (CVERA2 (h) (NONE) 6 12) MEMBER (Ce INVERSE GO&088 G) G) 
((VERA2 (5 HEAD) (9 NONE) 7 12 6) AND (MEMBER GO8088 G) (MEMBER 
GO8089 G)) ((VERA2 (7) (NONE) 8 NILL) MEMBER GO0K088 G) ((VERA2 
(7) (12 NONE) 9 12) MEMBER GO8089 G) (CIRR (3) (NONE) 10 12) 
NILL MEMBER (#PRON GNKO88 (#PROD GOR089 (eINVERSE. GOK088 G) 

G) G) H) (CERR (5) (NONE) 12 NILL) NEILL MEMBER (#PROD GO4088 
GOKNRD G) H) (CVERA2 (9) (NONE) 12 NULL) MEMBER GO0&089 H) ( 

(A2 (HEAD) (1% NONE) 13 NILL 6) AND (MEMBER GO8088 G) (MEMBER 
(*#PRON GO4089 (*INVERSE GO%088 G) G) G)) (CA2 (13) CNONE) 14 
NIILL) MEMBER (#PROD G0K089 C#tNVERSE GN&088 G) G) G) CCVERA2 . 
SHARE SOR) UuthttaD ale MERMEE SOURED HERDER Conan 
3 3) G d MEMBER (#PROD (*#PROD 
wire GO8N88 G) C*#INVERSE GOk088 G) G) H)) ae 

@ 

R 28,166+1,783 


Figure 4 


Actual output from ADEPT 
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eG =>a, eG (from iii), (GROUP G)) 


€ H ==> aye G (from i), (SUBSET H G)) 


(Line iv) is a,e G and line v) is a,é H). Associativity is expressed by the 


3 


statement (ASSOC G), allowing the use of a special matching subroutine, as 
opposed to an explicit line 


eset oe = 
viii’) a,é G& (ay € G& a,€ G) ==> (a4, )a, a, (a,a3)- 


SCANW now causes the following lines to be put on the proof tree as two 
subordinate trees; 


-1 
(4) a3a,€ G& a, eG 


(5) a,a,€ G 


(6) a, € G 


7) a,é G&a,eG 


3 4 
(8) ae G (immediately verified) 
(9) a,e G 


Verification of (7) or (4) would allow the consequent of vi), the abelian 
axiom, to cause a substitution in line (3). 


From line viii), (10) a ay € H is obtained as a reduction of (3). 


3 45 
Line (3) has not been involved in a use of detachment, and no verification of 
it has occurred, so the scan proceeds to the rest of the proof tree (through 

line (10)). This causes: from (5) because of vii), a reference to (7); from 


(5) because of xi), (11) a é€ H; from (6) because of x), verification due to 
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line (8); from (9) due to xi), (12) a,é H. Since line (12) is line v) of table 
I, it is immediately verified, thus completing verification of lines (4) 
through (9), and rendering line (11) irrelevant. 
The scan continues, yielding two new subtrees because of vi) and (10): 
(3) aeGéaa, eg 


(14) “hee (a,¢ G being line (8)) 


a2, 
(15) a,é G& a, 'e G, which is immediately verified since both its 
conjuncts have been verified. 


This completes the scan of the proof tree through line (10) as was indi- 


cated, and since new lines have been added to the proof tree, the scan of the 
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whole tree (lines (3) - (15)) is redone. As shown in Diagram II, no line on 
table I is used to scan any lines on table II that it already has scanned 
unless the line is an implication which is now augmented by a verified head of 


a subordinate tree it suggested. This is the case with line vi), and since 


3 


€ G and xvi) a 


line (4) is verified, table I is augmented by xii) a ¢ G, xiii) a é G, and 


1 


EA 


. -l_ -l - 
xiv) (a3a, a, =a, (a,a,)- Then, analogously, xv) a, 334 = 


4,4, are obtained from line (7). 

Scanning line (3) with these new lines, two substitutions are found, and 
since lines xiv) and xvi) have arisen due to the same table I entry (line vi)) 
and thus are in the same logical class, these substitutions are considered to 
be related. However, they conflict, and cannot be performed together, so they 
are done one at a time. As it happens, the substitution suggested by xvi) is 
performed first, yielding (16) (a,a,)a,_¢ H. As described in the last chap- 


ter, this is immediately collapsed into a,€ H, which is already verified as 


4 


line (12). This suffices to complete the proof. 

If line i) of table I had been (SUBGROUP H G), ADEPT would have gone off 
on a dead end, thinking line (3) to be processed after generation by detachment 
of the reduction a34,€ H & ae H. Efficient means of avoiding such difficul- 
ties (i.e., without backtracking) are clearly of great interest, and this sub- 


ject will be approached in a later chapter. 
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Problem V-C 


Sometimes ADEPT produces a very inefficient proof even when no unnecessary 
hypotheses have been explicitly stated. This is the case for the following 
theorem: A conjugate D of a subgroup H of a group G is itself a subgroup of G. 
(A conjugate of a subgroup H is specified by a member a) of G, and is the set 
such that aye D <==> (3a,) [a,e H & a, = (a,a,)a, "15 t.e., D = ajHa, >.) The 
proof given by ADEPT for this theorem is 73 lines long, of which 49 are due to 
"false leads." It is easy to see how this happens by observing the development 
of only a small section of the proof. 

To prove D a subgroup, it is necessary to show closure under composition, 


so assuming dé D and dye D, dod, 243 


(a,a,)0) 7] is to be proved. SOLVEX quickly reduces the problem to showing 


€ D must be shown; i.e., (3a,) [a,¢€ H&d 


a,7*((4,45) 77974) e@ H, which is immediately changed to 
-1 
a, (4,4, )a)) eH (*). 
The desired continuation is to observe that the membership of d, and d, in 


D allows substitution of (ajh, a, and (ajh, a,” for d, and d, respectively 


3 
in (*), where hy and hy are then known to be in H. The two substitutions are 
related, and will be performed simultaneously, yielding the following reduction 
of (*): ay" (CC(@yhy Da, *) C(@yhy day” *)Da,) ¢H, which immediately will be 
collapsed into hyhye H. This soon will be verified inasmuch as H is a sub- 
group. But, from (*) are derived 3 other reductions, each of which leads to 
much extra work. Two of these arise because of associativity, and the third 

is a direct application of the closure-under-products conjunct of the defini- 
tion of the subgroup H to line (*). All of these entries are on table I by 
this time, and so there is no selectivity involved. A similar situation 

arises when proving the closure of D under inverses. Perhaps the greatest 


difficulty in theorem-proving is "knowing" when a proof is on the right track. 


Once again, the reader is referred to the later chapters. 
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Problem V-D 


A lesson in the use of ADEPT may be learned from the following example. 

The commutator of two members a, and a, of a group G, denoted in mathe- 
matical notation by [a,,a,], is defined by [a,,a,] = ((a,"*a,*)a,)a,. This 
concept can, of course, be defined for ADEPT, and identities concerning com- 
mutators can be proved. ADEPT is not primarily designed for manipulation of 
identities, and all but the simplest of these requires a large amount of com- 
puter time, though there are some fairly obvious heuristics which could be 
applied to this very special problem area to remedy this. Such digressions 
are not relevant to the ADEPT project, but insights from one particular simple 
identity problem happen to be valuable in general. The problem is: 
[a .a,]7* = [a, sa]. 

Although either the notation (COMMUTATOR A3 Al A2 G) or 
(*COMMUTATOR Al A2 G) may be employed, assume the latter is used. The prob- 
lem then may be stated in anny ways. One is to give ADEPT the conclusion 
(EQUAL (*INVERSE (*COMMUTATOR Al A2 G) G) (*COMMUTATOR A2 Al G)). Remembering 
that no substitutions are made in the second argument of an equality on the 
proof tree, it is seen that this will produce a fairly lengthy chain of sub- 
stitutions, resulting in a correct proof, but a proof made quite long due to 
the application of the associativity axiom. No improvement is obtained using 
FEQUAL. For this problem there is a way out, however. A sufficient condition, 


: = ett 
2 is the inverse of ay if aya, e", 


known to ADEPT, for INVERSE, is given by "a 
This can be used if the usual asterisked notation for inverse is not employed; 
i.e., if the conclusion of the problem is put in the form: (INVERSE 
(*COMMUTATOR A2 Al G) (*COMMUTATOR Al A2 G) G). Doing this works very well, 


simply because related substitutions are made simultaneously, so that the 


1 


reduction of the application of the sufficient condition is (Cay a, ")a,)a,) 


(((a,7 1a,” *)a,)a,) =e, which is immediately collapsed into e = e, a line 
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which is verified as it is put on the proof tree. This is a very striking 
example of the value of doing related substitutions simultaneously and per- 
forming certain operations on a line, such as this "collapsing", at the time 
of its placement on the proof tree. 

The point of all this is that different ways of doing problems are often 
not too similar in their demands upon the resources of computer time and mem- 
ory. Even if ADEPT were much more highly developed than it is at present, 
including possession of the ability to choose the "correct" path of the proof 
tree more often, it well may not be able to take the statement of a problem 
and transform it into the most advantageous form. ADEPT should be able to 
solve the problem in any form, sooner or later, but the user can be asked to 
utilize some ingenuity in setting up the form of the hypotheses, conclusions, 
and definitions. ADEPT is flexible enough to allow significant experimentation 
along these lines, perhaps to the end that future programs will be able to 


take this burden from the user, 
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Problem V-E 


The following is a problem that has been considered by other theorem-prov- 
ing programs: a group, every element of which is of order 2, is abelian. 


ADEPT has no provision for numbers, but for an element ay to be of order 2 


simply means that it must satisfy the equation a =e. One would like to 


171 
give this problem to ADEPT and have it come up with a proof. But, faced with 
proving 818 = 88)> the program has no idea how to proceed. None of the 
axioms can be applied to the statement 818 = 881° Now it turns out that a 
simple proof of this theorem, requiring no "construction," follows from the 
-1 -l -1 


=e that a, =a . The proof proceeds: 818 = 8, 8 = 


consequence of aia) 1 1 


(8, = 88): ADEPT proves this theorem given the hypothesis a) => ay 
It does so with very little wasted effort, due to the restriction on matching 
simple variables and the immediate simplification of expression such as 
CH ae 

Of course, this is hardly fair, for in order to have ADEPT prove this 
theorem, the user must know how the proof proceeds: Clearly ADEPT has to be 
more clever, though a user who was very familiar with the program might real- 
ize which of the two ways of stating the “order 2" hypothesis was preferable 
(that is, if he were aware of both alternatives). One way to approach this 
difficulty would be to program into ADEPT a feature whereby insertion of the 
fact aja, =e on table I causes the consequence ay 


would have to be programmed carefully, so that very little time would be spent 


= a, to appear. This 


checking all lines being put on table I to see if they are of this form. Such 
a feature would properly be called a heuristic. 


Another approach would be to make explicit use of a lemma, a e ==> 


ee 
a, = ar Under which conditions this lemma would be put on table I is a 
difficult problem. In addition, even if this lemma were not brought onto 


table I to "confuse" proofs of other problems, its use in this problem causes 
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a proof of twice the length, requiring four times the time of the original 
proof with the simple hypothesis a, = ao 

The empirical approach to theorem-proving demands the incorporation of 
such lemmas or heuristics as the one described above. There are certainly 
direct analogues to the inclusion of such facts in ADEPT in the learning pro- 
cess of a student of group theory. This is in contrast to specification of a 
"complete" proof procedure (e.g., Herbrand's), which has a different orienta- 
tion than that of a student. It is known that complete procedures are very 


prone to fatal combinatorial explosion. The question is: Can an empirical 


approach handle enough special cases efficiently to surpass the other approach? 
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Problem V-F 


One of the first problems considered in conjunction with ADEPT was one of 
the most troublesome: The kernel of a homomorphism fy reduces to the identity 


if and only if fi is one-to-one. This theorem can be divided into two parts, 


and, defining a unitset to be a set with a single element, details of this 
problem will now be considered. 


Let fy be a homomorphism from G to H, K its kernel, E the unitset con- 


taining the identity of G, and first assume that K is a subset of E; i.e., K 
reduces to the identity. To be shown is that fi is one-to-one. A sufficient 


condition for fi to be one-to-one is that if £, @,) = £, (a,)> then a, = 4%: 


The usual proof proceeds by contradiction; if f, (a3) = £, (a,) does not imply 
-1 -1 
a, "4, for some a3 and ay» then £, (a3, )= £, (a,)£, (@,) (since f) is 


homomorphic) = e,, 80 aja, '¢ K. However, a -4 pe, since a, # a), contra- 


3%4 


dicting the assumption that K reduces to eg" 


ADEPT has no provision for proofs by contradiction, but a reformulation 


of the sufficient condition is all that is needed to allow ADEPT to solve this 


-1 “1 
problem: f) is one-to-one if £, (a, )f, @,) =e, imp lies 4,4, =e. This 


G 
is clearly equivalent, and the proof proceeds straightforwardly: ana, =e, 
-1 -1 -1L -1 
if a,4, eE, if a4, eK, if £, (34, )= ey but £, (a3, )*= 
-1 -1 
£, (a,£, (a, )= f, (a,)£, (@,) =e, Thus the formulation of the sufficient 


condition is important, and it is reasonable to expect a user of ADEPT to 
supply appropriate entries to its tables, just as in ProblemV-D it was argued 
that the user should be expected to employ ingenuity in choosing the form of 
statement of a theorem. 

For the converse, it is the definition of one-to-one that is important, 
and indeed this half of the theorem is more treacherous. Here, assuming fy is 
one-to-one, it is desired to show that K is contained in E. So assume k,€ K 


and attempt to prove ke E; i.e., k, =e: If the definition of one-to-one 


79 


ORATOR ht 


Oe ee yt bare ae WR gots we. ws a a ee ae 


used is that if f(a) = f(a), then a a,, an infinite loop is generated: 


1 2 
ky =e if £,(k)) = £, (e,) if ££, 4) = £, (£, (e,))» etc. This loop could 


be stopped artificially, but that seems to be an unnecessary extra check to 
add to the program. Alternatively, an effort could be made to make sure that 


the argument of a function was in its domain, but this would not help in the 


case G=H. If the definition of one-to-one is: £(a,)£,(a,)"> =e, = 
are 
us Bes 


nective FEQUAL is available, and the definition of one-to-one can very natural- 


ee ADEPT will have no “ideas" as to how to proceed. But, the con- 


ly be phrased £, (a,) =. £, (a) => a, = 4), and the proof proceeds: kj) =e 
if £, «,) =F £1 (eq): Evaluating the left-hand side: £,«k) =e since k,e K. 


H 1 


Evaluating the right-hand side: £, (eg) = ey since £, is homomorphic. That 


1 
completes the proof of this theorem, which is another example where the forms 


of definitions, etc. are critical. 
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Problem V-G 


Among the proofs of isomorphisms produced by ISOLVE (see Chapter III), 
none contain any surprises. The proofs have been of isomorphisms of a trivial 
to a relatively complex nature. The simplest required ISOLVE to go through 
the motions of proving a group G isomorphic to itself. As a related problem, 
GENFCN may be overridden, and the relation £, (@)) = (1a8," for some ,é G 
inserted, and this will be shown to be an isomorphism. Similarly, for G 


abelian, f, (a) =a = can be shown to be isomorphic by ISOLVE. 


1 

The most complicated isomorphism that has been done by ISOLVE is to prove 
that G/H is isomorphic to (G/K)/(H/K). This statement only makes sense for the 
case that K and H are normal subgroups of G, and ADEPT is able to prove the 
justifying fact that, under these hypotheses, H/K is a normal subgroup of G/K. 
To prove the isomorphism, the assumptions of the normality of K and H need not 
be stated explicitly, as they play no further role in the proof. The entire 
proof of isomorphism, including the generation of a map from G/H to (G/K)/(H/K) 
by GENFCN, took 7% minutes of computer time and 40 entries on the proof tree. 
Of these, 7 were used in the proof that the relation is well-defined, 18 in the 
proof that it is homomorphic, 12 in the proof that it is onto, and 3 to prove 
that it is one-to-one. 2 lines of the proof that it is well-defined and 6 
lines of the proof that it is homomorphic were irrelevant; i.e., useless 
branches. (Incidentally, if GENFCN is asked to provide a relation from 
(G/K)/(H/K) to G/H, the corresponding proof of isomorphism takes 9 minutes 
of computer time and 44 lines.) Without the use of the MODEL heuristic, the 
same proof would have been generated, but with an additional 30 to 40 irrele- 
vant lines at a cost of 3 to 4 extra minutes of computer time. 

Other isomorphisms established by ISOLVE include that of G and K when f) 


is an isomorphism from G to H and f, is an isomorphism from H to K; that of G 


with G/{e,}; that of G/ (Ker f,) with £, (G) for a homomorphism £13 and that of 
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G/£,7* ®) with H/K for an epimorphism f) from G to H (where K is a normal 
subgroup of H). ADEPT is able to prove all justifying theorems to show that 
these problems make sense —— for instance, in the last example, that £7) 
is indeed a normal subgroup of G. ISOLVE does not automatically go through 
these justifying theorems; it assumes the problem to be well-defined. But 
ADEPT has been given the associated theorems which establish this, and it has 
proved them. 

ISOLVE may also be used to establish theorems about other relations. For 
instance, rather than give ADEPT separate theorems, ISOLVE may be run in an 
attempt to "prove" that the relation (generated by GENFCN) £, (a,) = ajH from 
G to G/H is an "isomorphism". ISOLVE will produce proofs that the relation is 
homomorphic and onto, and will, of course, fail to show it to be one-to-one. 
Another such example is the canonical relation between G/K and £, (G)/£, (K) 
which also is an epimorphism but not an isomorphism, for a general epimorphism 
f,- This relation must also be proved to be weli-defined, as opposed to the 
map from G to G/H which is trivially well-defined by its defining equation. 

It is interesting to observe that though the term *LCOSET (which stands 
for "left coset") appears often in the statement on the proof trees of the 
isomorphisms involving factor groups, its definition, which is not needed in 
order to establish the isomorphisms, is never put on table I by ADEPT, thus 
saving a great deal of effort. This is a good illustration of why it is not 
desirable to go to the tables for instances of definitions of all terms that 
appear in the course of a proof regardless of whether or not they appear in 
lines of status PNT. 

To conclude this chapter, an insight gained from ISOLVE should be men- 
tioned. The selective introduction of instances of definitions; i.e., the 
controlled growth of table I at the start of a problem, mentioned in Chapter 
III, could, of course, be used by ADEPT in each of the 4 sub-theorems handed 
to it by ISOLVE. This involves, in general, obtaining the definition of each 
term in the hypotheses of an isomorphism theorem 4 times. It has been found 


that the class of proofs involved in establishing isomorphisms is not sensitive 
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to selective growth of table I, and consequently it is more profitable to 

have ISOLVE call ADEPT with the instances of definitions of all terms in the 
hypotheses already on table I. Thus ISOLVE can consult the table of defini- 
tions once for all 4 sub-theorems. The determination of the relative merits 
of such trade-offs is one of the types of insights into proving theorems about 


groups by computer which can easily be obtained by experimentation with ADEPT. 
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CHAPTER VI 


LIMITATIONS OF THE PRESENT PROGRAM 


The previous chapter, in addition to illustrating proofs produced by 
ADEPT, has also served as an introduction into the limitations of the present 
program. The remainder of this report will be devoted almost entirely to dis- 
cussions of various types of theorems with which ADEPT cannot cope. These 
types fall into different classifications. For instance, there are those 
which ADEPT cannot do simply because it is not broad enough. Such theorems 
include facts involving the introduction of numbers, say as orders of finite 
groups. Another such group is theorems requiring statements using double 
existential quantifiers, which cannot be handled by SOLVEX at present. These 
theorems are not significantly harder in any sense of the word; they simply 
require additional subroutines for ADEPT. 

Another class of theorems might be called the overspecified class. Such 
a grouping has no mathematical basis in group theory, but it is a label to be 
applied to those theorems with extra hypotheses with which ADEPT performs so 
erratically, as seen in the last chapter. As theorems become more complex, 
even those with minimal sets of hypotheses will cause similar difficulties for 
ADEPT. A decision must be made whether or not this can be overcome by heuris- 
tics, or whether a completely different approach to theorem-proving will 
ultimately have to be adopted. 

There are also theorems which require new and different methods of proof. 
In contrast to those which require introduction of additional types of con- 
cepts, these theorems are often significantly more difficult. Mechanization 
of proof by contradiction, use of constructions in proofs, etc., all must be 


considered. Finally, it is important to ask if the reasoning used in advanced 
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theorems of group theory is fundamentally different from that used in ele- 
mentary theorems? Is it the case that it is not a matter of extending ADEPT 
to be much, much more sophisticated, but rather a matter of implementing an 
entirely different form of human thought process, though perhaps in conjunction 
with a more sophisticated ADEPT? The logician is tempted to rely upon the 
theoretical fact that all theorems of mathematics follow or issue from the 
basic axioms of the system; the pure mathematician has reservations for he 
knows that intuition and other rather illogical procedures play a large part 
in his advanced work. The choice of methods with which to prove an advanced 
theorem is an excellent example of a step which cannot be done by simple pro- 
cessing of hypotheses, conclusion, and relevant definitions. 

All these considerations must be taken into account when discussing the 
future of theorem-proving by computer, and when discussing the level to which 
a program like ADEPT for proving one class of theorems should be perfected. 

The class of theorems for which ADEPT is best suited should be clear. 
ADEPT produces proofs which follow directly from given axioms, lemmas, and 
definitions. To some extent this can be augmented, perhaps by such methods 
as proof by contradiction. But clearly the approach used in ADEPT is 
ill-suited to many methods of proof, such as construction of counter-examples, 
a procedure certainly in the repertoire of any good group theorist. 

Before continuing this discussion, it will be profitable to consider 
specific problems of two kinds. The first kind includes problems that ADEPT 
either can "almost" prove, or that are closely related in content to problems 
that ADEPT has proved. The second type is a group of problems of a different 
nature, involving new concepts and methods, which have been considered in 


detail with proof by ADEPT in mind. 


85 


Problem VI-A 


It would certainly appear that ADEPT should be able to prove that the 
center of a group is a normal subgroup. However, it cannot, and the reasons 
why are instructive. 

Proving that the center is closed under products is done easily, by a 
version of the following argument: Let C be the center of a group G, and let 
cy and 7) be members of C. To show cco C requires proving that (c)¢, 8) = 
B, (c,cy) for Be G. But (c)c,)8, = c, (cy8)) = cB \cy)> since Coe Cc, and 
c, (8)c,) = (18, )cy = (ce, - B (c\cy), since C16 C. There is inefficiency 
in ADEPT's actual proof, to be sure, but it proceeds straightforwardly. 

The next step is to prove closure under inverses. Assuming c,e c, ee Cc 
must be proved, or ce) = gc, for any &,¢ G. There is more than one way 
to do this, but no way that does not require a bit of iigenutty: One method 
is to use a "construction"; i.e., the reverse of the procedure of simplifica- 
tion. This proof proceeds: cy 8) = cy eee, = ce) 'e,8,¢) = Re; 
since c\e C. This approach requires clever heuristics to introduce the appro- 
priate construction. An even neater proof is as follows: ce, 8, = 


(te) = (8,0 = geo: This proof depends upon the identities 


-1 =) es | -1 alco 
1 427 (a, a,) and aa, = (aja, ) . Now ADEPT "knows" the identity 


(a,a,)7) = ore ee as explained in Chapter IV, and this suffices to provide 


one of the equalities needed for this proof, for (,8,')" matches (aa, 


i.e., is of that form. But c Tg does not match a, ta me such a match re- 


1 


quires an explicit intermediate step — c 


1 
-1 -1, -1L,-1 


1 37% (8, ) ~ __ to obtain 


the proper form. 


It is not profitable for ADEPT to explicitly check every line against the 


identity a, a * (tay) even though it seems natural to check for in- 
-l -1 
a 


F -1 
stances of the identity (aay) =a, 1 


- Neither is it profitable to use 
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a, = (a, ty as a symmetric equality. (Remember that it is written now using 


EQUAL, not EQUAL2. This is an example where extra programming is dictated to 
make possible the reverse substitution, rather than opening the problem up to 
a proliferation of substitutions by using EQUAL2.) So again heuristics need 
to be discovered to enable ADEPT to prove this theorem without introducing 
provisions in the algorithm which would virtually insure large increases in 
useless effort for all proofs in general. 

Another mishap occurs when trying to prove that the center is normal. 
Assuming ce Cc and 8\¢ G, the desired conclusion is (g,c,)8,"e C. The “ob- 
vious" step to ADEPT is to proceed as in the first two parts of this theorem, 
namely to show that (16,8, 8 = g, ((g,¢,)8,-) (*) for any Be G, a 
reduction obtained by detachment, using the definition of center. And the 
algorithm provides that no other use of the definition of center can then be 
made with respect to the line (g,c,)8, C (see Diagram II and the discussion 
of heuristic B for "progress'"' in Chapter IV). For most theorems, this re- 
striction of ADEPT is well-justified, for most theorems progress as the first 
part of this one did. To prove C4Coe C, ADEPT showed (cco )81 = 8, (cyco)» 
and to carry out a parallel branch starting with Cocye C is needless prolif- 
eration of effort. However, to show normality the simple proof is to proceed 
(gc, )8,""e Cc if (18,8, (= c,) €C. Indeed, to prove (*) requires either 
some kind of planning, a construction, or substitution in both sides of (*), 
none of which are presently possible in ADEPT. 

Thus, though ADEPT has enabled the computer to produce many proofs, em- 
phasis on those types of problems which give it trouble indicates that a rad- 
ical re-examination of the whole philosophy of ADEPT's design may be necessary. 
Or perhaps the difficulty is that the proper heuristics have not yet been 


isolated. 
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Problem VI-B 


There is a second problem on which ADEPT fails that is not dissimilar 
from the preceding one. Consider the theorem that the map f£, (a,) = a from 
a group G into itself (the map taking every element into its inverse) is 
homomorphic if and only if G is abelian. One half of this gives ADEPT no 
trouble; in fact for G abelian, the map in question is isomorphic and ISOLVE 
proves this. 

The converse is not hard, but requires ingenuity of the same type as that 
needed in the second part of the previous theorem. To show G abelian, ADEPT 
is 


must establish the identity 8185 = 858) under the hypothesis that f) 


homomorphic. Completing the proof requires use of a "construction"; in 


1,-1 


particular, a substitution of the form a, <— (a, ) ". Note that the execu- 


1 
tion of such a step would require a message to the simplifying routine associ- 
ated with PUTON2, insuring that the new line will not be simplified. The proof 
proceeds: 2,8) = (8,8) -)”” = £)(8,8))' = (£,(8,)£,(8,)) = @, 8) = 
(Ger) = 858)" (Close examination of this proof reveals that the hy- 
pothesis defining the map fy must be written using EQUAL2. The converse of 
this theorem, showing f) to be an isomorphism when G is abelian, requires only 
EQUAL in the defining equation of the map.) 

Further discussion of this theorem would only parallel comments made 


while discussing the last problem. However, in Chapter VIII some possible 


means of overcoming difficulties such as these will be suggested. 
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Problem VI-C 


It is a theorem of group theory that £, (x) = K for any subset K of f,'s 
domain, if fy is a monomorphism. The inclusion K@ £, (Ky? is trivial and is 
true for any homomorphism fi: ADEPT proves it with ease. The converse is 
much harder, and appears to demand an approach not possible with ADEPT. At 
least, the most obvious proof to the author is one which is ill-suited to 
ADEPT's algorithm. It seems to require a controlled "working forward" ap- 
proach which cannot be supplied by the 'lemma-proving" procedure which is made 
possible by lines of status ST on table II. Briefly, the proof proceeds as 
follows: 


Assume a.eé £(k) 3 Then £, (a)) € £,«), which, by the definition of 


1 
image, means that f(a) = f, (a,) for some ase K. But fy is one-to-one, so 


ay = ay and therefore ay 


Now consider the problem as ADEPT sees it —- given the assumptions and 


e K, which was to be shown. 


assuming a,€ ns ae the line to be proved is aje K. But K is an arbitrary 


1 


subset, and in addition no substitutions are possible for ay so ADEPT is 
unable to continue. From the point of view of working backwards, the above 
proof depends on the implication (Ja,) [ase K& a= ay] ==> aye K. However, 
even if ADEPT "knew" this fact, SOLVEX would attempt to "solve" the line 
(Jay) [a,€ Ké& a, ay] for ay» and would come up with the "reduction" a,é K, 
which is no help at all. Thus determination of a candidate for this variable 


a, must proceed by more devious methods. The fact that the definition of 


2 


£, (x) causes a,€ ie to imply an identity involving f(a,) as opposed to 


1 
may be able to be used as the "tip-off" that the usual procedures of ADEPT 


“i 


will not suffice for this proof. 
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Problem VI-D 


The Last problem which will be discussed to illustrate limitations of 
ADEPT for proving theorems of the type it is best suited to prove is the nec- 
essary and sufficient condition for equality of two (left) cosets ajH and aH: 
ajH = ajH <==> a, e H. This theorem is an example of how everything can go 
wrong: 

First, consider proving a, aye H from the equality of the cosets. ADEPT 
has no "ideas" except to attempt to show a) and a, to be members of a,H or aol, 
which is suggested due to the form of the definition of left coset, for if any 
of these lemmas could be established, a substitution would be possible in the 
original line. Now a and ay are general members of a group G of which H, aH, 
and aH are subsets. Therefore the MODEL heuristic will not allow these candi- 
dates for heads of subordinate trees to appear on table II. Portunately, the 
user has the option of not using the MODEL lattice (though he may not know 
when not to use it), and at least it is possible to get ADEPT to proceed with 
this proof. 

Since a,H and ajH are the same set according to the hypotheses, each of 
these four heads of subordinate trees is a reduction of one of the other three. 
For example, to show aj¢ a H it suffices to show a,¢ aH. The fact that 


2 


aie ajH for any a, is a simple one, and ADEPT can prove it quickly if given 


3 
it as an explicit problem. However, as a line of status ST, it cannot be 


proved, for the proof that a,¢ aj requires "solving" by SOLVEX the line 


3 
(Ja,)[a,¢ H& a, = a,a,]- As shown in Diagram I, only lines of status PNT 
are ever processed by SOLVEX, and a line of status ST can never take on status 
PNT. Thus the present version of ADEPT is stymied. 


One possibility, which would not cause great amounts of additional effort 


per proof, would be to try to "solve" every such line put on table II (i.e., 
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always trying a call to SLVX in Diagram IV). If the line were not immedi- 
ately solved, it would not be scanned as described in Chapter III unless it 
were of status PNT. The example in this theorem can be solved immediately, 


yielding a, aye H which quickly reduces to e.e€ H, which could be verified 


G 
from part of the definition of subgroup. But again trouble develops, for if 
H were explicitly assumed to be a subgroup, the original conclusion would be 
reduced to showing a,‘e H & ajé H, which is certainly a fruitless attempt at 
a solution. Furthermore, this reduction is derived by detachment, and thus 
a) ‘ae H would be removed from further consideration, and by the time the 
status ST lines were verified, the substitutions in the original conclusion 
could no longer be made, since the pointer would have been moved down (i.e., 
status PNT would have been assigned to some subsequent line of the proof 
tree). 

It has already been observed in Chapter III that the design of ADEPT, 
and in particular, the restricted processing given to lemmas, is not oriented 
to proofs which must go back many "levels'' to original definitions. In this 
spirit one would suggest that the user include with the specific hypotheses of 
this theorem the lemma ae aH. Even with this approach, the user can run 
afoul! The use of asterisked terms happens to be critical in this instance. 
Assuming that the user inputs the lemma in the form (MEMBER A3 
(*LCOSET A3 H G)) (where A3 is a variable), the proof will be completed easily. 
Without the asterisked term, the user must state the lemma as a translation of 
"let A be a left coset aH; then a, 
application of detachment to the original conclusion. Since aye A matches 
a, ‘aye H, the proof would be "reduced" to showing that H is the coset 


e A", and this would cause an undesirable 


(a, ta, )H. This inference is completely valid, and the new line does happen 
to be provable, but only with great effort. Thus there is a definite need for 
the use of the asterisked term in this probieas 

The converse of this theorem is really a conjunction, namely to prove that 


a,H © a,H and ajH c a,H if a, aye H. This proceeds normally, and requires 


1 2 


explicit assumption that H is a subgroup. One inclusion parallels the other 
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in its proof, though ADEPT has no way of detecting this and profiting by the 
observation. The parallel is not quite complete; proving the inclusion 


ate ajH comes down to observing a, ae H, which, while implied by ay a,é H, 
is not derivable by ADEPT. This situation is analogous to the one in the first 
problem described in this chapter, and no more need be said here. 

This discussion of this last theorem may seem to be lengthy and to place 
undue emphasis on the limitations of ADEPT. However, despite the inept per- 
formance just outlined, ADEPT did manage to prove many theorems: But all 
heuristics break down sooner or later, and a clear discussion of the impli- 
cations of ADEPT's organization was certainly in order. Shortly, discussion 
will resume on the worth, limitations, and future of ADEPT, including possible 
corrective modifications which could be made, but first, problems of another 
class should be discussed — those with new features to which ADEPT could be 
adapted. After all, future work must take into account more kinds of theorems 


and harder theorems, as well as theorems very similar to the ones already 


discussed. 


t Note that a more general statement of the lemma, such as eg€ B == 


3€ a,B, could lead to still another undesirable effect if it were not stated 


using the asterisked term *LCOSET. If the table I entry were (IMPLIES (AND 
(MEMBER (*IDENTITY G) B) (LCOSET A A3 B G)) (MEMBER A3 A)), then any occurrence 


a 


of detachment using this implication would give rise to a table II entry with 
a variable, namely B. While variables in table II entries are not forbidden, 
they can lead to an entry which is difficult to prove or which has no interpre- 


tation. Here a proof tree line a,e H could be reduced to a conjunction, one 


4 


conjunct of which is e.¢ B, for a completely unspecified variable B. Thus the 


user must beware of Bo aietices P ==> Q on table I which have the property 
that if a table II entry Q' leads to a reduction P' using detachment, then P' 
contains (free) variable; i.e., in creating the instance P' using the informa- 
tion obtained in finding the match of Q' and Q, constants were not substituted 
for all of the variable symbols of P. This situation can be avoided by making 


use of the well-known equivalence (used in the reduction of statements to 


prenex normal form): (Wa,)[Pa, => Q) = (3a,)Pa, ==> Q. In the above 
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example, the lemma could have been stated (IMPLIES (EXISTS B (AND (MEMBER 
(*IDENTITY G) B) (LCOSET A A3 B G))) (MEMBER A3 A)). With this statement, 
trouble is averted, though, of course, an extension to SOLVEX would be nec- 


essary to actually handle any reductions generated by detachment using it. 
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CHAPTER VII 


EXTENSIONS OF ADEPT 


One method of proof which ADEPT does not use is mathematical induction, 
and it was this method which was considered in most detail as a specific ex- 
tension of ADEPT. Theorems which are proved naturally by induction are not 
too common in group theory, even when groups of finite order are considered, 
but enough were isolated in order to justify this section of the investigation. 
Most involve terms with a varying number of arguments, such as a finite prod- 
uct or intersection. Consequently, important questions of notation arise. It 
is simple enough to define a new type of variable or constant to represent 
integers, and N, Nl, ..., N9 are used for the integer symbols, which may be 
variables or constants. Having done this, how shall the new concepts be 
represented? 

The easiest concept to represent is the iterated product of the same 
variable — ane or (a,)". Using an asterisked term, this may be written 
(*EXP Al N G), where G is the set on which the composition is defined. The 
general iterated product is more difficult. Consider the product Operas 
which is to be denoted by the term *GPROD with some appropriate set of argu- 
ments which will include G, the set with the composition. Any notation used 
for this must be flexible enough to allow easy statement of such products as 
f, (@,)...£,@)). It must also be easy to express the fact that if n is 1 in 
either product, the generalized product collapses to a ciagie object. But 
this object (a, or £, (a)) in the examples given) is subscripted. It is impor- 
tant to notice that the subscripts of the letter "a" in the following two ex- 


pressions are not used in the same way: (1) a.e G& ae G => a.a,e G; 
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(2) £, (@,---a,) = £,(a,).--£,(@))- In (1), the subscripted letters are used 
as symbols for simple variables. The particular integers used as the sub- 
scripts have no significance. In (2), the subscripts are used to specify an 
ordering of the variables. Indeed, in (2), the unsubscripted letter is a 
meta-symbol denoting any variable/constant symbol, and the subscript yields 
information on the order and number of these symbols. 

Retaining the spirit of Polish notation, the term *SUB is introduced, to 
be used whenever a subscript is used to specify ordering, etc. A variable 
symbol can easily play the part of the meta-symbol, and a tentative represen- 
tation for apse, is (*GPROD (*SUB A9 1) (*SUB A9 N) G). 

This is not satisfactory, and in order to see this, consider the equali- 
ties aj-ean = (a,---a dan and £, (a,)---£, Gu) = [£, (a,)---£, (ad) £, @..)- 
(n' is the successor of n, ordinarily n + 1.) These are both instances of one 
general fact, which should be expressible by one statement. However, in the 
cee eenond tie representations for these identities, the occurrences of 
(*SUCCESSOR N) are at different levels of the expression, and the matching 
routine will not suffice. Stating the situation in another way, it is impos- 
sible for ADEPT to have a schema of the form P(n) = Q(n) where n occurs at 
arbitrary levels in the syntax of P. 

One possible notation which will at least suffice, though it is cumber- 
some, is to include as arguments of *GPROD: 

1) the subexpression of ii) which is the subscripted 
subexpression of the general element; 
ii) a symbol acting as a meta-symbol for the general element 
of the product; 
iii) the number of elements in the product; 
iv) the set upon which the composition is defined. 
Similarly, a single subscripted object is written using as arguments of *SUB: 
i) same as i) for *GPROD; 
ii) same as ii) for *GPROD; 


iii) the value of the subscript. 
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The first argument mentioned is present to allow for a distinction between 

£, (a) and [f, (@)],- Thus £,(a,)---f,@.1) = [£, (a,)---£, @ If, @ 1) can be 
written: (EQUAL (*GPROD Al (Fl GH Al) (*SUCCESSOR N) H) (*PROD (*GPROD Al 

(Fl G H Al) N H) (*SUB Al (Fl GH Al) (*SUCCESSOR N)) H)). This is an instance 
of the general statement (EQUAL (*GPROD A8 A9 (*SUCCESSOR N9) A) (*PROD 

(*GPROD A8 A9 N9 A) (*SUB A8 AX (*SUCCESSOR N9)) A)), where A8, A9, N9, and A 
are (free) variables. [It is not necessary to indicate in some way that A8 
must match a subexpression of whatever expression A9 matches, for this will 
automatically be the case in any well-formed use of *GPROD. 

Together with the preceding general statement, the identity (EQUAL 
(*GPROD A8 AJ 1 A) (*SUB A8 AQ 1)) gives an inductive definition of *GPROD. 
Using such a definition, it is reasonable to consider such theorems as 
£, (aj-++-a,) = £, (a,)---£, @)) for a homomorphism fi> or (Cae © = 
ae ae Both proofs are exactly the same in structure, step by step. 

Each is a natural use of induction, and each requires an additional hypothesis. 
For the first, this hypothesis is as follows; (EQUAL2 (Fl G H (*SUB A8 A9 N9)) 
(*SUB A8 (Fl GH A9) N9)). This is an explicit connection between two legal 
notations, according to these conventions of notation, for expressions such as 
£, (a,)- Thus there is actually still a need for a schema; in this case a 
schema to the effect that P[(*SUB A8 A9 N9)J] = (*SUB A8 P[A9] N9), where P is 
any of a fairly large class of terms. 

Leaving this incomplete discussion of the problems of notation, the 
question of the implementation of the method of mathematical induction will 
now be considered. The greatest difficulty here is an obvious one — how to 
decide algorithmically when to attempt a proof by induction. This decision, 
including the identification of the specific variable on which the induction 
is to be performed, is not an easy one. Surely one condition which must al- 
ways be present in a theorem which is provable by this method is the appearance 
of a term which is defined by a definition which is inductive in form; i.e., 
of the form "X, Y,..., Z are special instances of a, and if Ais a___, 


the element given by the (usually simple) operation » on A (or on A and some 
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other 's) is a ." For instance, a common example is the positive 


integers, given by "1 is a positive integer, and if n is a positive integer, 
n+ 1 is also a positive integer."' *GPROD, the term discussed above, has an 
inductive definition. 

While the presence of a term that is inductively defined is a necessity 
for the use of induction, it is certainly not true that use of induction is 
appropriate in all theorems which contain mention of such terms. Many theo- 
rems involving finite groups, for instance, are not proved by induction on the 
order of the group. To be short and to the point, a method has not been found 
to enable ADEPT to reasonably decide when to use induction. 

Once such a decision is made, there is little further trouble. A super- 
visor along the lines of ISOLVE has been written which, when asked to prove 
some proposition P(n)}, asks ADEPT to prove P(1) and P(n) =~ P(n'). This suf- 
fices to handle most instances of induction encountered in elementary group 
theory. In general, more freedom is needed to specify the basic case, and a 
non-rigid concept of successor is needed. 

Using the supervisor just described, NSOLVE, a user may decide that a 
proof should be done by induction, and have it done by machine. The two the- 
orems mentioned earlier in this chapter are provable by NSOLVE, as well as the 


simple fact that aye G => a."e G for any semigroup G. Using the same guide- 


1 
lines for notation described above, NSOLVE can be given problems involving, 
say, finite intersections of sets. For example, consider the problem that the 
intersection of any finite number of subgroups is itself a subgroup. This is 
done easily by NSOLVE if the lemma stating that the intersection of two sub- 
groups is a subgroup is known to it. It seems reasonable to assume that this 
lemma would be present as a disjunct of the sufficient condition for subgroup 
available for use on any non-trivial problems. (The proliferation inherent 

in such assumptions will be discussed in the next chapter.) Given this lemma, 
only one extension had to be made to ADEPT. This was to have the search which 


sees if a line about to be put on table II is already on table I take into 


account (free) variables as arguments of terms on table I. That is, a 
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atatement of the form P(a,)s where a, is a variable, on table I carries the 


1 


force of its universal generalization, and therefore should suffice to verify 


any statement P(a,) being put on the proof tree. Heretofore, all statements 
put on table I with variables happened to be either implications or equalities, 
and thus a simple check for equality of two statements, one on table I and one 
one table II, was sufficient (given that EQUAL and EQUAL2 were considered 
identical), since the scan would discover other possible inferences. In this 
problem, however, a table I statement (SUBGROUP (*SUB A A N9)) with (free) 
variables A and N9 has to cause verification of such lines on the proof tree 
as (SUBGROUP (*SUB HH 1)). Such an extension to ADEPT is clearly necessary 
and desirable, and can be implemented in a manner so that it will not increase 
running time significantly. 

The preceding paragraphs have mentioned only very simple problems prov- 
able by induction. The following discussion is of a considerably harder the- 
orem. Included here because the proof requires induction, this theorem's 
discussion will also serve to illustrate the problems that will arise when 
definitely more advanced theorems are given to mechanical proof procedures. 
Truly a "Pandora's box catastrophe" is very near, and only inspired heuris- 
tics will ward it off. 

The theorem is that every finite group has a composition series, and 
first, a proof of this is outlined, in order to make the following comments 
more intelligible. A composition series of a group G is a series of subgroups 
Ajseees A_) of G such that Ay = {eg}, A, 7G, A is normal in A, and A,/Ay_y 


i-l 1 
is simple for i = 2,..., n, and all the A's are distinct. To aid in the proof 
is the lemma that A/B is simple (has no non-trivial normal subgroups) if and 
only if B is a maximal normal subgroup of A. Proceeding to induct on the 
order of G, the basis step is completed by demonstrating that (feg}) is a 
composition series of length 1 for G if G has order 1. Assuming that any 
group of order < m has a composition series, a group G of order m + 1 is shown 


to have one by considering its maximal normal subgroup H. H must have order 


Sm, and therefore has a composition series Gy-+-, Ads where AL =H. Then 
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it can be shown that Ajsrees Ay G) is a composition series for G. This 
completes the inductive step and therefore the proof. 

Now consider just a few of the details glossed over in the above outline, 
which cannot be omitted in a machine's proof. The definition of a maximal 
subgroup H of a group G includes a statement that the order of H, o(H), is 
strictly less than 0(G). To conclude from o(G) =m + 1 and o(H) < o(G) that 
o(H) < m requires an explicit step, using one of the numerous relations con- 
necting <, =, =, 2, and >. Certainly these relations cannot be given to ADEPT 
as lemmas, but must be built (or "compiled") into the program, and in a way 
that will not cause proliferation of effort. Perhaps this can be done not by 
special-purpose matching routines for Polish notation expressions, but by a 
subroutine built around the use of the linear “lattice'’ model of the integers. 
Another step left out of the proof is one which might be given as a lemma for 
this theorem, and that is that every finite group G such that 1 < o(G) has a 
maximal normal subgroup. (How would ADEPT prove this innocent fact?) Another 
detail requires that the definition of order of a group state that a group of 
order 1 contains one element, and if the definition does not specify this 
element to be the identity, ADEPT must be able to prove the admittedly trivial 
fact that it is the identity. 

In addition, demonstration of a candidate for a composition series in- 
volves a use of existential quantifiers which is not among the special cases 
which SOLVEX can now handle. This, of course, will be a frequent occurrence 
as new types of theorems are proposed for ADEPT, and some of the necessary 
extensions will be more difficult than others. 

It is the author's hope that the preceding discussion will clearly illus~ 
trate the difficulties and considerations inherent in proofs of more complex 
theorems. No solutions have been delineated, partly because it is the author's 
contention that the harder theorems introduce radically different types of 
reasoning processes than those used in the types of theorems for which ADEPT 
was constructed. 


Mostly just to prove that it could be done, even though making use of an 
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extension of SOLVEX written to cope with only the above theorem and making use 
of a "loaded" definition of composition series, a version of the preceding 
problem was formulated which NSOLVE successfully proved (with 26 lines and 
using 33 seconds of machine time). The statement of the problem is given here 
in mathematical notation, and the translation into Polish notation follows the 
spirit of the previous discussion on notation for series, iterated products, 
and the like. 

A composition series is defined for this purpose by the inductive state- 
ment: B = te,} ==> (B) is a composition series of length 1 for B; if B has a 
maximal normal subgroup and (Ajocees A) is a composition series for it, then 
5 BD is a composition series for B, where m=n+¢#1l, A, = Be for i<m, 
and BA = B. The theorem itself is given as a conjunction of lemmas, followed 
by the conclusion: [G is a group and o(G) < n] == G has a composition series. 
NSOLVE is told to induct on n. The lemmas used are: 

i) [A is a group and o(A) $ 1] => A = {e,}; 

ii) A is a group ==> [A has a maximal normal subgroup 
which is itself a group, and [o(A) s m + 1 ==> the 
order of the maximal subgroup of A is < mJ]; 

iii) A has a composition series ==> there exist an integer 


m and subgroups B, such that (Biases, BD) is a 


i 
composition series for A. 
Even these specially chosen statements caused difficulties. In particu- 
lar, it was discovered that certain conjunctions on the proof tree were such 
that it made no sense to attempt to prove one conjunct before the other was 


"not 


established, and a provision was introduced to flag such a conjunct as 
discarded but not to be considered until such and such a time". This was 
crudely done, and is best not described in detail? 

Before embarking on the next chapter for a final discussion of the future 
of mechanical theorem-proving as revealed in the light of the ADEPT program, 


one other example will be considered. Much of the reasoning used in the types 


of theorems which ADEPT encounters is applicable to problems previously given 
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to "advice-takers". 


In particular, an investigation was made to see what 


modifications would have to be made to ADEPT to solve a version of the MIKADO 


problem, originated by Safier 


that very few are necessary. 


29) and discussed by Slagle, 24) It turns out 


The access to tables of definitions and suffi- 


cient conditions is blocked, for advice-taker problems are stated in 


self-contained packages. 


Koko, Nankipoo, Katisha, and Mikado are declared to 


be variables (it does not matter which kind!), and ome extension is made to 


SOLVEX, allowing an expression of the form (Ja,).-- (Ja )P(az>--- 


’ a> for 


some expression P which is a single term followed by its arguments, to be 


"solved" if a statement P(Dj sees bd) is on table I. 


The problem can then be 


proved by ADEPT if stated as follows: 


hypotheses: 
i) (Unmarried*female Katisha) 
ii) (Unmarried*male Koko) 
iii) (Not*think*dead Mikado Nankipoo) ==> (Can*stay*alive Koko) 
iv) (Can*appear*safely Nankipoo) ==> (Can*produce Koko Nankipoo) 
v) (Not*accusing Katisha Nankipoo) ==> (Can*appear*safely Nankipoo) 
vi) (Not*claiming Katisha Nankipoo) = (Not*accusing Katisha 
Nankipoo) 
vii) (Ja,) (Can*produce a, ay) ==> (Not*think*dead Mikado ay) 
viii) (Married Katisha) == (Not*claiming Katisha a,) 
ix) (da,) (Can*marry ay ay) => (Married ay) 
x) (3a,) (Can*propose ay Katisha) ==> (Ja,) (Can*marry ay Katisha) 
xi) (Unmarried*female ay) & (Ja,) (Unmarried*male a) => (Ja, 
(Can*propose a, a, 
conclusion: 


In the above, a 


(Can*stay*alive Koko) 


are assumed to be variables; i.e., the first six 


and a, 


1 


hypotheses form the first conjunction of input, and the last five hypotheses 


form the second. 


This statement of the problem should be compared closely with that given 
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in Siaete 


The propositions involving causality used in Slagle's proof 
were not used with ADEPT, so it is not surprising that ADEPT's proof is 
shorter; in fact, it is much shorter, taking only 14 seconds instead of 
Slagle's 5.7 minutes. But ADEPT is not an advice-taker in a general sense, 
so the preceding comparisons are not too cogent. It suffices to say here 
that ADEPT can handle at least some advice-taker problems. In Appendix I, 


a more detailed discussion of advice-takers and how they differ from ADEPT 


will be given. 
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CHAPTER VIII 


FUTURE POSSIBILITIES AND CONCLUSIONS 


It is time to evaluate the ADEPT project and discuss possibilities for 
future work uncovered through insights and experience obtained from the pro- 
gram. To do this to best advantage requires a restatement of the purposes 
for which ADEPT was created. Primarily, the goal was to obtain a program 
which could handle a significant number of theorems of elementary group the- 
ory. Needless to say, these theorems were to be drawn from the simplest 
results, the foundations of the subject. These seem to fall into four main 
classes: i) those which require constructions", such as the proof that a 
left identity is also a right identity, ii) those which follow by straight- 
forward inferences from basic concepts, iii) those which depend to a large 
extent on knowledge of simple facts in number theory, such as easy results 
regarding finite groups, and iv) those which serve as illustrative examples. 
It was decided to use theorems of the second type, on the assumption that the 
deductive reasoning required to handle them would be most generally applicable 
to all kinds of theorem-proving. 

As a matter of fact, consideration of the development of the simple proof 
that the kernel of a homomorphism is a subgroup of the domain of that homomor- 
phism was instrumental in defining the basic structure of ADEPT. Subsequent 
consideration of numerous theorems of the same type led to the growth of ADEPT 
to its present form, complete with a number of special-purpose heuristics. 
Indeed, the limited goals for ADEPT as a program have ban met, for nearly 
one hundred theorems of group theory have been proven by this computer algo- 
rithm, and the program has sufficed to provide legitimate evaluation of vari- 


ations in the algorithm and their effects. 
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It may be objected that the proofs produced by ADEPT are sometimes inef- 
ficient, not to mention that some problems of the type that is ADEPT's spe- 
cialty "stump" the program completely. In reply one has only to note that any 
routine which can produce proofs of all the various facts that ADEPT has es- 
tablished in consistently less than two minutes of computer time per proof 
cannot be seriously inefficient. (The isomorphism theorems if considered as 
three or four "proofs" each conform to this statement.) This is particularly 
cogent when one considers that ADEPT is written in LISP 1.5, a language not 
noted for execution speed. As for the similar problems with which ADEPT cannot 
cope, they are not numerous. Indeed, most have been discussed in earlier 
chapters, on the assumption that examination of shortcomings is more instruc- 
tive than perusal of successes. The fact remains that the successes far out- 
number the failures. More importantly, the class of theorems for which ADEPT 
was designed has been essentially exhausted in the course of this project. 

This fact has two important consequences. One is the fact that improvements 
made to ADEPT in order to enable it to prove those theorems of the same eve 
which it cannot prove would not result in a program which could prove many 
more theorems. The other is that refinements designed to increase gffictency 
could only be used on the same theorems, which do not now require prohibitive 
amounts of effort. 

More serious,is the complaint that, though ADEPT can prove an impressive 
number of theorems, many must be stated in a "correct" manner in order for the 
program to be successful. In many instances this complaint is, in the author's 
opinion, not valid. Im particular, it is maintained that a user can be reason- 
ably asked to exercise care in deciding upon the form of statements presented 
to ADEPT, as least at this stage in the art of theorem-proving. For instance, 
choices between asterisked and non-asterisked notation, or between the various 
logical constants for equality are often critically important, and the user 
has a responsibility to aid ADEPT in this heuristic matter. The complaint is 
valid, however, in the case where the number, and not the form, of the hypoth- 


eses is in question. The user cannot be expected to know the minimal set of 
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hypotheses needed for a proof. Thus this is a definite shortcoming of the 
ADEPT program. 

Changes designed to ameliorate this failing could be tested on the same 
theorems which ADEPT has already considered, by making use of the enormous 
number of possible ways of overspecifying the hypotheses to these problems. 
This is the case even if only "natural" unnecessary assumptions are introduced. 
But the weakness of ADEPT in coping with overspecified theorems is an indica- 
tion that more serious difficulties will arise when more difficult problems, 
based on a broader base of known concepts, are considered. For instance, the 
introduction of numbers and their associated properties could complicate a 
proof considerably. Add to this another inefficiency which has been tolerated 
until now but which must be faced in the near future, namely excess branching 
due to the associativity axiom, and a good case has been made for conducting a 
full-scale investigation of more efficient theorem-proving with an eye to a 
much larger class of problems. 

How, then, can such difficulties be overcome? Can it be by additional 
special-purpose heuristics, or by some general planning heuristics, or by an 
entirely different and more appropriate algorithm? The answer, as is so often 
the case, is probably a combination of the possible courses of action. Still, 
it seems that the most efficacious improvement would be the introduction of 
some kind of planning. This could take a variety of forms. In fact, some 
planning is already present in ADEPT. HOMOMF effectively delineates a plan to 
be followed to attempt to verify certain equalities (those given by FEQUAL). 
On a larger scale, ISOLVE represents a plan for approaching an isomorphism 
problem. Similar plans could be developed for other special subclasses of 
theorems or types of lines on the proof tree. One possibility is a special 
executive like ISOLVE designed for closure problems. A closure problem is 
one where, assuming a variable or variables are members of some set, it is to 
be shown that a certain function of those variables is again a member of the 
set. Showing sets to be subgroups or normal are problems of this kind. As 


was seen in Chapter V, efficiency difficulties have occurred in such theorems, 
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and a plan incorporated in a supervisor might be an angwer to such troubles. 
To resort in this manner to separate routines for each kind of problem 
is an abandonment of any hope of developing a general-purpose problem solver, 
except for a program to perform the very trivial deductions which form the 
core of most proofs. Such despair may be justified, but this cannot be argued 
conclusively at this date. For one thing, there are more general ways to 
attempt planning. One such possibility would not be hard to try with ADEPT, 
and probably should be tried soon. This particular planning heuristic will 
now be elaborated upon in some detail. 


" was 


In Chapter III the phrase "explore consequences of all terms... 
used; to indicate a call to SCANW to natch against lines on the proof tree 
all instances of definitions of the terms in question as well as all other hy- 
potheses and accumulated "knowledge" on table I at the time of the call. In_ 
the early stages of a problem this amounted to a planning heuristic, for due 
to the selective placement of entries on table I, very little was on table I 
except entries associated with the terms in question. Thus the "plan" was to 
apply to a line on the proof tree only facts known about terms, etc. of that 
one particular line. As the proof progressed, and more entries appeared on 
table I, this heuristic gradually "disappeared", giving way to.a procedure 
of a much more "brute-force" character. Why not employ this heuristic at all 
times, thus incidentally eliminating the need for selective placement of 
entries on table I? This could be done by "indexing" all table I entries, 
according to their origin. Obviously there would be the original hypotheses, 
and the lemmas which were added during the proof, but more importantly, those 
entries which were definitions of terms could be "tagged" by that term, and 
singled out from table I whenever that term was spotted in a line of the proof 
tree. Thus for every line of status PNT, when it was scanned table I could be 
divided into two parts — a select part including all definitions of terms or 
constants in the line being scanned (and perhaps the original hypotheses), and 


the remainder of table I. Clearly the select subset would be used alone by 


the scan at first, and if no success or progress resulted, possibly but not 
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necessarily the remainder would be considered. 


In conjunction with the changes now being suggested, two details should 
be implemented. One concerns a more involved check of the constants of a line 
being examined. At present, for each constant of the line, a search is made 
through table I for entries which define it. To be precise, a constant A is 
defined by an entry of the form (TERM A ...), and the resulting action is the 
placement on (the select portion of) table I of the proper instance of the 
definition of TERM. This procedure handles set and function constants ade- 
quately, but very seldom provides any information regarding constants which 
are members of sets. To remedy this, the procedure could be supplemented by 
a search of table I for terms defining not only the constants of the line of 
status PNT, but also all set constants A from table I entries of the form 
(MEMBER Al A), where Al is a constant of the line of the proof tree being 
examined. (For asterisked notation this procedure would put on (the select 
portion of) table I an instance of the definition of *TERM when Al was found 
in an entry of the form (MEMBER Al (*TERM ...)).) This would provide a more 
complete determination of which entries of table I are relevant to a given 
proof tree line of status PNT. 

In addition, it is suggested as a result of experience, that certain 
entries of the select portion of table I be given even higher priority. This 
might be too difficult: to implement to be practical, but the idea is this. 
Consider the case where a line n of the proof tree has given rise to a reduc- 
tion ay due to an application of detachment from an implication of table I in 
logical class m. Suppose further dint ethos table I entries in the same log- 
ical class could have caused substitutions in line n, if this ware not pre- 
vented by the restriction described in connection with “progress heuristic" 
B. The suggestion is that if the same "inhibited" substitutions are now pos- 
sible in a line of the proof tree which is either ay itself or a reduction of 
ny» that these should be done first, and given a definite priority. As an 
illustration of this, the reader is urged to refer back to Problem V-C, and to 


note that implementation of this suggestion would remove the inefficiency 
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associated with that proof. 

The heuristics just described, by analyzing more completely the content 
of a line of the proof tree, including, in the last suggestion, an element of 
analysis of how the line originated, clearly would implement a greater degree 
of "awareness" to the program, so that it could be maintained more cogently 
that ADEPT would be performing as though it knew where it was in a proof. On 
a more prosaic level, proofs would run faster, if only because just a subset 
of table I would be used by SCANW except in unusual cases. Some proofs would 
no doubt be shorter from the point of view of the number of lines on the proof 
tree, but it is less clear that increased efficiency would manifest itself 
noticeably in that manner. Another important advantage would be gained — 
namely that the separation of a select portion of table I before scanning 
would enable ADEPT to cope successfully with problems involving a longer total 
table I; i.e., problems with more hypotheses or problems involving a broader 
base of concepts. There is no reason to believe that single lines of the 
proof tree in such problems would have more terms and constants than at pres- 
ent; thus the size of the select portion of table I for any given line should 
remain small and manageable. 

While the previous heuristics would enable ADEPT to handle more assump- 
tions, hypotheses, etc., they do nothing to alleviate a similar problem — 
more branches on the proof tree. As theorems become more complex, and ADEPT 
acquires a broader base of "knowledge", lines of the proof tree will have 
greater numbers of reductions. One example of this was alluded to briefly in 
the last chapter — sufficient conditions will have to be disjunctions with 
many clauses. Under these conditions, it will be impossible to expect ADEPT 
to consider reductions of lines in the order of their generation, as is pres- 
ently done. Some choice will have to be made, on the basis of the particular 
context of the theorem at a point in its proof. One isolated suggestion was 
made in the preceding discussion concerning a proposed priority for substitu- 
tions "delayed" by prior applications of detachment. A crude choice could be 


based on length or complexity of a reduction, with "simpler" reductions being 
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processed first. Such a heuristic might work in some cases, but it is the 
author's opinion that any such completely syntactic heuristic would have lim- 
ited effectiveness. Perhaps it would be best to use a complexity heuristic 
only in cases where one alternative is dramatically simpler than the others, 
as sometimes happens when a "correct" substitution results in a "collapsing" 
of a lengthy expression to a very simple one. 

Other possible criteria for ordering reductions of a line are based on 
the history of the reductions. For instance, since generation of reductions 
by detachment has been seen to be correlated with progress, perhaps reductions 
generated in this manner should be considered first. Another possibility 
which may have a desirable effect is to keep track of the logical class of 
the table I entry which is used in generating each reduction of a line on the 
proof tree. Then a list of all logical classes of table I entries used in 
the steps from the head of the tree to any particular branch would be avail- 
able. (When an implication is split and the reduction is an instance of the 
consequent of the parent line, there is no associated logical class, but 
neither is there any other reduction necessitating a decision.) Given this 
history of a line, priority could be given to reductions generated due to 
axioms, etc., in a new logical class, or in a little-used logical class, or 
perhaps in a logical class that had not been used recently. This would be a 
manifestation of the heuristic stating that all the hypotheses may be needed 
for a successful proog, °°) 

Another suggestion is to make use of a grouping of terms into classes 
according to their generality. For instance, subgroup is probably the most 
general term which defines a set in group theory. In contrast, an inverse 
image can be considered to be a fairly specific set. With such a grouping, 
which would not have to be too refined, preference could be given to reduc- 
tions generated using table I entries obtained from definition instances of 
the more specific terms. The rationale behind this proposal is shown in 
many of the examples of the earlier chapters. Many theorems involve subgroups, 


for instance, but the presence of the instances of the definition of subgroup 
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must not cause a lot of extra branches, as it presently does in ADEPT. So 
this is a heuristic which might help the program to cope with overspecified 
problems and problems with many hypotheses. 

Some of the above suggestions may be futile hopes. One important fact is 
that because of this project, it is or may soon be possible to test such heu- 
ristics. Using ADEPT or a slightly (not greatly) improved ADEPT and the more 
difficult of the theorems already proved by ADEPT along with some of a slight- 
ly harder nature, it should be possible to obtain significant evaluation of 
the effectiveness of such schemes, and of different combinations and prior- 
ities in combinations of such schemes. 

Incidentally, the worth of some of these proposed heuristics will vary 
according to the degree to which a hypothesis is liable to be necessary. For 
simple problems, this means that techniques used to cope with theorems stated 
with deliberate "red-herring" hypotheses will vary from those used for more 
ideally stated problems. For harder problems, it means that because of the 
larger number of hypotheses per problem, and therefore the lessened likelihood 
that any one hypothesis will be "correct" for a given step, and because of hy- 
potheses included due to uncertainty over their relevance, different criteria 
for evaluation may be needed than were optimum for simpler problems. To give 
an example, the suggested "approval" for use of axioms of varied logical class 
is obviously a heuristic which could lead to wasted effort in the presence of 
irrelevant hypotheses. 

A couple of other details involving ordering of reductions are of more 
certain usefulness. The MODEL heuristic can be applied to lines of the main 
proof tree, not to accept or completely reject lines as it does for those of 
status ST, but to give an indication of the likelihood of proving a reduction 
of the form aye A. And it hardly needs to be mentioned that when one reduc- 
tion happens to be a conjunction, which will itself be of status NILL, that 
this branch should be ordered according to the worst evaluation of the two 
co-conjuncts. Such pessimism is only common sense since both conjuncts would 


have to be established in order to verify their predecessor. 
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It should be noted that adoption of schemes for ordering reductions 
raises questions about the order in which the total proof proceeds. Some 
heuristics would appear to decrease the need for complete scans, but if SCANW 
is not called often, a new procedure will be necessary to adequately process 
lines of status ST, the subordinate trees. It will be necessary to specify 


when to end processing of a selected reduction. If processing is ended in the 


‘game way as that of a line of status PNT is terminated at present, where does 


the program go next? The answer nearest to the spirit of the present version 
is illustrated as follows: Suppose line (4), say, has just been processed, 
and the next line of status REL able to take on status PNT is line (6). Per- 
haps line (6) is a reduction of line (3), and another reduction of (3), say 
line (9), is of higher priority. Then simply interchange lines (6) and (9) 
and proceed as usual. 

Some other heuristics which can properly be called planning heuristics 
are suggested by features of previous work in problem-solving by computer 
which were not included in ADEPT. For instance, the difference-operator tech- 
niques of Newell, Shaw, and g imon (19) have an obvious application for the 
establishment of identities. For example, when an equality requires a switch- 
ing of constants, as in a proof that a set is abelian, the axiom concerning 
the inverse of a product may be useful, as in Problem V-E. While it would 
seem impractical to develop a complete GPS-like routine to handle such steps, 
certainly some sort of comparison between halves of an equality could be 
developed and used to some degree in the choice of the next step to be made 
by ADEPT, as well as a means of evaluating progress. A more specific heuris- 
tic is suggested by a particular example in one of the GPS papers. “>? There, 
planning is done by "abstracting" the problem; since the domain of the example 
is the predicate calculus, this could be done by ignoring connectives and the 
order of the variables. ADEPT has need of such an approach in its treatment 
of associativity. Here the abstracting would be accomplished by ignoring 
grouping; i.e., "remove the parentheses". There are strong reasons for for- 


mally considering composition as a strictly binary operation, for this 
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simplifies the task of formalizing and programming group-theoretic algorithms 
tremendously. But it has become obvious that at certain times in some prob- 
lems, ADEPT must be able to "stand back" and consider the lines of the proof 
tree in this more abstract form, thus making optimum use of the known hypoth- 
esis of associativity. Surely it would not be difficult to decide upon a 
precise form for this special-purpose planning heuristic and then to implement 
it within ADEPT. 

What are the implications of the implementation of planning heuristics 
for the methods of determining "progress" in ADEPT? Is heuristic B, which is 
presently in use, suitable for a program altered in ways such as have been 
considered above? The answer is that heuristic B is not sophisticated enough, 
but more constructive comments are not as easy to make. Of course, if a pri- 
ority scheme is adopted to order reductions of lines, the method of assigning 
priorities will probably also be of some application for a determination of 
progress. For instance, if terms are classed according to specificity, gen- 
eration of a reduction of a line by detachment using a table I line arising 
from the definition of a very general term may well not be considered grounds 
for declaring "progress" or for putting a line of status REL into status REL1. 
Conceivably, with good enough planning and ordering heuristics, there would be 
no need for status REL1. Or if determination of order of reductions depended 
strongly upon which were generated by detachment, perhaps a progress heuristic 
should not be based so strongly on application of detachment. It does seem, 
however, in the light of results obtained so far with ADEPT, that uses of 
detachment must be given some kind of special consideration in either planning 
or evaluating steps in any extension of ADEPT. 

Of course, if special-purpose executives, like ISOLVE, are constructed, 
as was suggested above for closure problems, the need for lower-level planning 
and evaluation of progress will decrease markedly. In fact, since a large num+ 
ber of theorems considered thus far with ADEPT are closure problems, it might 
be a worthwhile short-term project to develop such an executive in order to 


evaluate the special-purpose approach. In contrast, development of planning 
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heuristics and more sophisticated progress heuristics should be done in light 
of more theorems than those considered so far in the course of this project. 

It should also be noted that other existing heuristics besides those 
connected with "progress" may be rendered unproductive by the adoption of 
planning techniques. Just as an example, the heuristic of substituting in 
only one half of an equality on the proof tree may be found to be of no fur- 
ther value. As in all this discussion, precise statements about effects can 
not be made until a particular combination and implementation of some or all 
of the possible new heuristics is adopted and fixed. 

As mentioned at various times in this report, part of the effort of ex- 
tending ADEPT will have to be devoted to development of specific subroutines 
to augment the existing program. These are not heuristics, but merely capa- 
bilities for different types of problems. SOLVEX will have to be able to 


handle expressions of the form (Ja,)Pa for a broader class of expressions 


1 
Pa; including expressions themselves headed by an existential quantifier. 
The need for a routine to discover "constructions" or expansions has been seen 
in a number of examples. Such a routine will not be easy to develop. It will 
have to include heuristics, quite possibly ones very reminiscent of Newell, 
Shaw, and Simon's eps. (15) This routine will govern those cases where equal- 
ities expressed using EQUAL (including those handled by the simplification 
routines associated with PUTON2) should be applied in the unnatural direction. 
It should also be capable of either performing or setting up intermediate 
steps so that ADEPT can perform substitutions such as aa < (aja, "), 
which were seen to figure in some of the theorems covered in Chapter VI. 

As difficult as it will be to devise a "construction" subroutine, an 
even more difficult task will be to decide algorithmically when to use it. 
Here the realm of the unexplored has been reached. No longer does the orien- 
tation of ADEPT seem. so productive, but still it is infinitely preferable to 
the orientation of the complete predicate calculus procedures. Here open, 


creative minds are needed to cross a gap of ignorance. Similar situations 


have come up before in this report. When should induction be used? What 
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procedure can isolate the variable on which the induction will take place? 

For proofs by contradiction, efficiency virtually demands prior selection of 
the hypothesis most likely to be contradicted by the consequences of assuming 
the denial of the conclusion. Even more difficult is the question of when to 
abandon proof of a proposed theorem and try to construct a counter-example for 
it. (Incidentally, a good "give-up" heuristic could conceivably make it 
practical to try all of the methods of proof on a given problem, thus elimi- 
nating the need to choose between proof by induction, contradiction, etc., 
without increasing the total amount of effort involved by a very high factor.) 
And ultimately, could a computer program generate likely candidates for 
theorems? 

Returning from this dash into the world of the relatively distant future 
of theorem-proving by computer, consider problems of only slightly greater 
difficulty than those already done by ADEPT. In particular, consider briefly 
how the concepts of orbit of an element and order of an element are naturally 
used in the proof of the Sylow theorems, which need only mention order of the 
group in their statements. This is not an isolated example; to prove more 
advanced theorems one must know what method to use, and the method often in- 
volves introduction of other concepts. In part, one learns from experience, 
but if only from experience the result is a group theorist like the author, 
who is unable to prove a theorem unless he has seen the proof of a similar 
one! But how does the mind of the creative mathematician work? Could a 
scholar outline an algorithm suitable for a computer? Is it not more likely 
that a programmer attacking this problem will meet the same frustration as 
Dr. A. L. Samuel met when he found that expert checkers players did not under- 
stand how they played the game? 

Thus the author firmly believes that radically different approaches are 
used in the thought processes of human mathematicians as they work on harder 
theorems, and therefore different algorithms will be needed to prove harder 
theorems by computer. Indeed, though it could be broadened to prove more the- 


orems, ADEPT is already to the point where its orientation has approached the 
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limit of its productiveness, and fresh ideas are needed in order to produce 
efficient proofs of harder theorems. There will, however, be need for ADEPT, 
or rather for an improved ADEPT, in future problem-solving programs no matter 
what their organization, for harder theorems will have sub-theorems which are 
precisely the type of problem for which ADEPT was constructed. In addition, 
part of the reasoning process of harder proofs, particularly once a general 
method of proof has been chosen, will involve just those very logical infer- 
ences that ADEPT can handle. 

In summary, what has been done is this. Starting with a desire to capture 
in an algorithm suitable for a machine the human thought-processing used in 
elementary group theory, a program was developed. Before this development 
could be accomplished, a decision had to be made between two possible orienta- 
tions — the "mechanical" and the "heuristic". The former had been considered 
more extensively in previous projects. On the surface it seemed that a com- 
binatorial, manipulative approach with a simple but powerful theory behind it 
was ideally suited to a computer program, as well as providing the satisfying 
theoretical "completeness" which is a consequence of the theory. But the pre- 
vious efforts had shown that what seemed ideal in theory was not at all ideal 
in practice, and in fact discouraging barriers were encountered in the realm 
of efficiency. At the same time, the heuristic approach had not been shown to 
be necessarily superior, but at least it was a viable alternative. Its main 
advantage is that the programmer can avail himself of human experience in a 
direct way. By introspection and investigation of mathematical reasoning as 
seen in the literature, an attempt can be made to understand how the human 
mathematician is able to reduce what is combinatorially a gigantic problem 
to manageable size. (It must not be overlooked that even this "size" is not 
small when one takes into account the "experience of the ages", the store of 
knowledge and effort of centuries before.) Thus the investigation takes on a 
two-fold interest — not only is there the attempt to construct a working 
algorithm, but there is the endeavor of Shdeve tending in part the techniques 


of the brain, and formalizing those steps of logical deduction that are done 
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literally without thinking. 

There is no claim here that what is best for the mind is best for the 
machine. It is certainly conceivable that the optimum way for a computer to 
prove theorems bears little relation to human thought. But at the present 
time it is not known what this might be. One "non-human" orientation has 
already been seen to not be the answer. Meanwhile, progress can be made, both 
in developing algorithms and in understanding the problem itself, by consider- 
ation of what people know about what is, after all, a uniquely human ability 
at this time. 

Pointed in this direction, the development of ADEPT began. First and 
foremost, as has been seen, the program has been successful, though this fact 
may have been obscured at times by the discussion of ADEPT's shortcomings and 
what could be done next. Not only have non-trivial theorems been proved by a 
computer program, but a huge number of insights into the natures of specific 
problems and types of problems as they are approached algorithmically have 
been obtained. Furthermore, heuristics have been discovered and evaluated, 
now that a suitable vehicle for such experimentation is in existence. It will 
be instructive to list briefly, in a single compact list, the heuristics used 
in the course of this project. 

1) Implementation, through the use of specially introduced 
logical constants for equality (EQUAL and FEQUAL), of 
restrictions on substitutions and of different methods 
of processing lines. 

2) Substitutions allowed in one side only of an equality 
(EQUAL or EQUAL2) on the proof tree. 

3) Performance of related substitutions simultaneously, 
implemented through the use of a "logical class" for 
table I entries. 

4) Processing of lines headed by an existential quantifier 
by special cases, as opposed to a uniform procedure. 


5) Selective placement of definition instances on table I, 
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done as terms are encountered in the course of a proof. 

6) Restricted matching allowed for expressions consisting 
of just one free variable. 

7) "Compiled" application of common identities as a line is 
put on the proof tree, sometimes resulting in simplification 
of the line, and other times resulting in additional 
substitution instances of the line. 

8) The MODEL heuristic, allowing rejection of some new sub- 
ordinate trees started by an expression of the form 
(MEMBER Al A), using a "lattice" model of the sets involved. 

9) Various progress heuristics, in particular, heuristics 
A and B, involving consideration of detachment. 

Some of these heuristics have proved more successful than others. For 
instance, numbers 1), 3), 6), 7), and 8) seem to have proved their value con- 
clusively, and can be retained in essentially their present form. Others, as 
implied in the preceding discussion of possible improvements, may be found to 
be of less importance or worth. And obviously, new heuristics are still 
needed. 

Though ADEPT never was intended to embody a "complete" procedure, 2 
‘moment's reflection will show that some of the above heuristics further limit 
ADEPT's theoretical power. For instance, sometimes "progress" is declared 
erroneously, as in the overspecified version of Problem V-A. It would, of 
course, be a trivial matter for ADEPT to be programmed so that once it became 
"stuck", it lifted these heuristic restrictions and redid the problem in a 
more comprehensive manner. (It is a less trivial matter to "know" when the 
program is "stuck"!) But such a recovery procedure is of little interest, as 
is obvious from the original abandonment of a "complete" procedure. A de- 
crease in ADEPT's theoretical power caused by a heuristic is of no concern, 
if the heuristic permits more efficient proofs for more theorems in general, 
where "more, of course, has to refer to a great many more theorems than are 


"foiled" by the proposed heuristic. Certainly the heuristics included in 
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ADEPT conform to this policy. They have enabled ADEPT to perform acceptably, 
and what is more, this report has been candid about those examples which point 
out shortcomings of the heuristics. 

The question can be raised: Why stop here? Many possibilities, both 
immediate and more long-range, exist for continued work. The answer is not 
simply that one has to stop someplace; this is in reality a natural 
break-point. This is not to say that what exists of ADEPT is perfected; it is 
not even to say that the discussion of future possibilities suggests answers 
to all of the problems raised in the earlier chapters. However, as stated 
earlier, no simple alterations or extensions to the program will enable it 
to handle a significant number of new theorems. Quite the contrary; unless 
major additions are created, only better proofs of theorems already provable 
will result. 

Therefore, this project (and this report) comes to an end. Those diffi- 
culties encountered and overcome in the course of these efforts can now be 
handled routinely in the future, freeing further researchers in the area of 
heuristic problem-solving so that they may be able to concentrate more clearly 
on the harder problems ahead. 

One final comment should be made. It has been suggested to the author 
by Tim Hart that heuristics developed by iseciawnte tick: as have been carried 
out with ADEPT may be able to be restated in a form compatible with "complete" 
procedures, and incorporated into them, perhaps to the end that a basically 
combinatorial approach will surpass the basically heuristic, empirical ap- 
proach. This is in no way an argument against the ADEPT project. If such a 
reliance on heuristics which can only (or at least more easily) be discovered 
through the more natural orientation to theorem-proving used in ADEPT, can 
then be transferred to a more mechanical program, the dividing line between 
the two approaches will virtually disappear, and gavedcans will have been 
taken of the best virtues of both. To the author, though, the most important 
contributions will still be the heuristics. Hopefully, ADEPT will pave the 


way for important discoveries of that nature. 
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APPENDIX I 


OTHER WORK IN THEOREM-PROVING 


This discussion of related work in theorem-proving has been placed after 
the body of the report on ADEPT for two reasons. The first is that before 
understanding the approach used in ADEPT it would not be clear which previous 
projects were relevant as background. Secondly, this history can now be sup- 
plied with comparisons and comments on the author's contributions. 

The appearance of theorem-proving as a branch of artificial intelligence 
was inevitable. As soon as researchers began to explore the potentialities 
of digital computers for tasks other than numerical computation, and more 
specifically, as soon as nonenumerical tasks requiring "intelligence" were 
seen to be legitimate subject areas for computer programs, artificial intelli- 
gence was in existence. It is not the intention of this commentary to define 
. the proper bounds of this area of computer science, or to become involved in 
a harangue over the use of the word "intelligence". The fact is that it be- 
came possible to conceive of a digital computer, properly programmed, making 
decisions and performing tasks that in human experience necessitated "thought" 
and reasoning of a higher level than merely mechanical operations. Such possi- 
bilities were highly exciting. If achieved, computers could become extremely 
powerful and valuable aids, much more so than they are because of their com- 
putational capabilities alone. As a by-product, scientists would have a use- 
ful model of a class of human mental processes. Consequently, artificial 
intelligence projects were undertaken. Not surprisingly, the first tasks 
explored in these endeavors contained a large element of mechanical procedure 
and only a small amount of required "thinking". Excellent examples were found: 


in games and in the theorems of the early chapters of Russell and Whitehead's 
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monumental Principia Mathematica. Closely related, though not usually put 
under the category of artificial intelligence, was the effort to make rough 
translations from one language to another. 

Work in all these areas became more sophisticated. An admirable achieve- 
ment was made by Dr. A. L. Samuel in his master-level checkers ocean nee a 
milestone in artificial intelligence, and an excellent example of a 
special-purpose program designed to do only one task, and to do it well. Pro- 
grams for computerized formal mathematics also became more ambitious, and the 
early programs for doing mathematical logic were joined by such successes as 


Gelernter's geometry program (556) 


(23) 


gram. Because of its self-contained nature, at least in the early stages 


and Slagle's symbolic integration pro- 


of the subject, and its ease of formalization, the theory of abstract groups 
became a frequent subject of theorem-proving programs. But the successes 
were followed by a long series of slight improvements, without any real 
break-through. 

Meanwhile, a number of investigators delineated a problem area of “logi- 
cal deductive reasoning", independent of subject matter. Often with ambitious 
claims of generality and applicability, programs were constructed to handle a 
wide variety of questions. Some, as GPS — Newell, Shaw, and Simon's General 
Problem Solver , 15) were actually crude models of human rational thought. By 
necessity, these general programs contained heuristics — procedures designed 
to cope with certain cases or combinations of events in a manageable way; pro- 
cedures believed to be of wide applicability but not necessarily guaranteed to 
be always productive. Heuristic, general routines needed to be tested on some 
particular syllabus. Often this syllabus was drawn from the theorems of some 
branch of mathematics. 

In any event, the attempt to prove theorems of formal mathematics by 
computer is not done as an end in itself, but as a step toward the achievement 
of artificial intelligence, in the hope of achieving a much greater usefulness 
of digital computers. At the present day such a hope is far from realization, 


and so work in artificial intelligence continues to concern itself with 
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theorems, games, etc. 

Henceforth this discussion will concentrate only on the area of 
theorem-proving by computer. Progress is being made constantly, and the 
state of the art is no doubt rather more advanced than can be seen from the 
literature, due to the time lag involved a publishing. In particular, pro- 
jects are known to be under way at MIT and at Carnegie Tech at this time, and 
undoubtedly other work is in progress elsewhere. However, only what has been 
published will be presented here. 

The fundamental difference between the mechanical and heuristic ap- 
proaches to theorem-proving has already been maintained. A familiarity with 
the general organization of a "complete" proof procedure has been assumed, 
and ADEPT itself is an example of the heuristic, albeit special-purpose, ap- 
proach. What has not been done is to point out how far other projects have 
gone, and to compare ideas used in ADEPT with some of those used in earlier 
programs. 

Beginning with the mechanical, combinatorial approach, what can be said 
about the capabilities of the many programs of this nature which have been 
written, and what means have been employed to reduce combinatorial explosion? 
The most encouraging report is that of Wos, Robinson, and carson, 9) which 
relates that a program (hereafter called the "Wos program") solved Problem 
V-E (a group each of whose elements is of order 2 is abelian) in as little as 
5.18 seconds. The main heuristic used was the so-called "set of support strat- 


", which can be described precisely only in terms of a formal logical sys- 


egy 
tem, but which amounts to giving special consideration to the conclusion and 
special hypotheses (in this case the hypothesis that aya, =e for all ay in 
the group). Since the proof procedure works forward, attempting to generate 
a contradiction from the hypotheses and the denial of the conclusion, this 
means that the program looked for contradictory sets of statements only among 
sets of statements containing clauses derived from the two lines which were 


singled out. In ADEPT, such a heuristic would essentially say that any proof 


must make use of all special hypotheses, where the user, as in the case of the 
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Wos program, tells the program which hypotheses are to be so treated. 


In the Wos paper, the interplay between the set of support strategy and 
an arbitrary bound imposed on the complexity of statements generated is dis- 
cussed. The latter involves a guess as to the complexity of the proof of a 
proposed theorem. Not surprisingly, in the presence of an accurate guess the 
set of support strategy is of little help. But its worth is clear in the 
absence of such a guess, for with the strategy a 37.5 second proof is obtained 
when no bound is specified, while a 411 second proof with a conservative bound 
and no proof at all with no bound is obtained without the set of support strat- 
egy. ADEPT's performance on this problem has already been discussed. Its 
“working backward" elminates much of the need for the set of support strategy, 
inasmuch as most irrelevant lemmas in ADEPT are automatically excluded. It 
was seen that ADEPT could not solve the problem without being explicitly told 
about a consequence of the hypothesis, namely a= “al for all a) in the 
group. As described in Chapter V, ADEPT proved two versions of the restated 
problem, and one took 22 seconds while the other took 82 seconds. Only 18 
lines on the proof tree were needed in the latter case, as opposed to over a 
thousand for Wos' worst case. In conclusion it should be pointed out that 
this problem is quite a bit more suitable for a combinatorial theorem-prover 
than many which have been solved by ADEPT. 

The Wos program, of course, profited by the experience of its predeces- 
sors. It uses a variation of the Herbrand procedure that was formalized by 
J. A. Robinson, ‘'9) using a single rule of inference, resolution, which is 
rather well-suited for the task of mechanization. Robinson, in turn (as is 
excellently recounted in his 1963 paper “5, drew upon improvements out Lined 


(3) 


by Davis and Putnam and others. All in all, much effort has been spent on 
developing an extremely efficient formalization of a complete proof procedure, 
greatly refining Herbrand's original scheme. For instance, properties common 
to the syntax of contradictory sets have been utilized. But refinements in 
the procedure are not heuristics, and skecnat even subject-oriented. 


(26,27 ,28) 


Hao Wang has done a great deal of investigation along similar 
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lines. For instance, he has improved procedures by developing separate algo- 
rithms for statements of different syntactic forms; i.e., different patterns 
of quantifiers in prenex normal form. Wang's papers contain the most persua- 
sive arguments for the combinatorial as opposed to the heuristic approach. 
Unfortunately, his arguments for the preferability of a sound theory and 
complete procedure seem based on a faith that such an approach can, with ef- 
fort, be made successful. No program has been demonstrated to date to support 
this faith. If it is a justifiable hope, Wang's arguments would be hard to 
ignore; if, as this author believes, the hope is forlorn, then the theoretical 
advantages of a complete procedure are irrelevant. 

This concludes an admittedly brief account of combinatorial 
theorem-proving programs. Before a discussion of specifically heuristic 
problem-solvers is begun, mention should be made of the work of a man who had 
no interest in computer programs for formal mathematics, but who nonetheless 
has completely captured the spirit and worth of heuristics in his pedagogical 


(16,17) 


approach. Prof. G. Polya's books on problem-solving are "musts" for 


anyone who is interested in the procedures used by people while doing "formal" 
reasoning. 

In the field of artificial intelligence, perhaps no researchers are bet- 
.ter known than Newell, Shaw, and Simon. Their programs —— first the Logical 


y 4) y 15) 


Theorist (LT and then the General Problem Solver (GPS — have had 


an enormous impact upon this area of computer science. (Perhaps, as Newell 


(13) this impact has been too great, causing a lack of innova- 


himself notes, 
tion in approaching artificial intelligence.) LT was conceived and implemented 
a decade ago, yet its ideas have reappeared in most subsequent heuristic 
problem-solvers. Partly, this is due to Newell, Shaw, and Simon's emphasis on 
simulation of human behavior, because, being concerned with uncovering models 
of human thought processes, these researchers specified algorithms and heuris- 
tics which seem very natural, for they attempt to capture our (the human's) 


way of approaching problem-solving. For a number of reasons, work in 


theorem-proving often turns to draw upon human experience, and in so doing, 
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emulates LT. For instance, an introduction to the gross inefficiency inherent 
in a blind "working forward" approach as found in the early combinatorial 
theorem-provers leads one to the observation that people often work backward 
from the conclusion, either completely so as in LT, almost so as in ADEPT, or 
at least keeping the goal in mind to guide steps taken, as can be said of GPS. 
“Working backward" is for many problem areas a high-level heuristic, and a 
very effective one for reducing irrelevant effort. It was one of the main 
points made by the LT project. 

Adoption of a "working backward" type of procedure usually involves the 
use of a matching subroutine, and ADEPT has one just as did LT. Now, as then, 
this subroutine accounts for a significant fraction of the effort expended by 
the entire program. Newell, Shaw, and Simon experimented with heuristics 
(the similarity tests) designed to facilitate matching, but had limited suc- 
cess. As they pointed out, those possible matches which heuristics can easily 
recognize as not worth sending to the matching subroutine are just those which 
the subroutine itself rejects after a minimal amount of work. In ADEPT, very 
little effort was spent trying to improve the matching process. The only fea- 
ture incorporated for this purpose was the special-purpose matching routine to 
handle the checking of a fixed list of common axioms and identities by PUTON2. 
Here, use of a quick check for key terms common to axioms and the proof tree 
line was sufficient to expedite the matching of thege particular statements. 

Particularly on a superficial level, there is a great deal of similarity 
between LT and ADEPT. Both use ad hoc methods chosen to handle a particular 
problem area. Since the "task environment" of LT, propositional calculus, is 
semantically simpler (i.e., of less content) than group theory, it is not 
strange that. LT is a less complicated program. Both ADEPT and LT employ 
non-complete procedures. LT seems more formally structured than ADEPT, but 
this is due largely to the nature of the problem area. Still, ADEPT does not 
use "methods", tried in turn on lines of the proof tree. Instead, each axiom 
is allowed to operate on the proof tree line, in turn (or at a special time, 


in the case of the common axioms and identities. which have been singled out), 


124 


in whatever way its syntax permits. Modus ponens plays a prominent role in 
each program, though the specific use of this rule of inference takes different 
forms in each. However, on a more detailed level, again partly due to the 
nature of the problem areas, ADEPT is more resourceful than LT. Not only does 
it contain more heuristics, but it can be extended to include or test other 
special-purpose heuristics which might be developed. It makes more use of the 
context of the problem, as, for instance, in the examination of terms and 
constants of a proof tree line, and in the recognition of table I lines 
defining constants used in the proof, thus enabling instances of definitions 

to be used to better advantage. 

The creators of LT discovered a property of heuristics that also has been 
observed in ADEPT, namely that they enable a program to reach a "plateau" of 
performance, beyond which it is very difficult to progress without very dif- 
ferent heuristics. This was mentioned in Chapter VIII as primarily a property 
of the problem area, the author maintaining that harder problems necessitate 
new methods. This differentiation of problems is harder to observe in systems 
oriented around the predicate calculus, and perhaps this was one reason which 
led Newell, Shaw, and Simon to leave the impression that what is needed is a 
more powerful set of general-purpose heuristics as opposed to different heu- 
ristics for different classes of problems. 

In any event, new heuristics were (and are) needed, and GPS followed LT. 
GPS is a much more ambitious project, with many psychological implications. 
Intended to be a model of problem-solving in many areas, GPS was tested on 
problems in propositional calculus and trigonometry. Its basic organization 
is much too well known to need recounting here; suffice to say it employs 
certain "goal types" to apply operators that reduce differences between known 
statements and desired statements. The operators and differences must be 
specified and characterized for each problem area to which GPS is directed; 
the methods or "goal types" are fixed, and conform roughly to means-end anal- 
ysis. Clearly ADEPT has no similarity to GPS in general organization. Yet 


GPS has been mentioned in passing in this report, primarily in Chapter VIII, 
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because it appears that attempts to remedy some of ADEPT's weak points may be 
able to profit from insights gained in the GPS work. Comparing present with 
desired results has an obvious analogue in the establishment of identities, 
and a proposed low-level planning heuristic for use with GPS, namely abstrac- 
tion of the problem, seems applicable to more efficient treatment of associa- 
tivity, as described previously in Chapter VIII. 

While discussing the work of Newell, Shaw, and Simon, a paper of Newell 


and ernst “9? 


should be mentioned as giving a provocative overview of heuris- 
tic programming. Its perspective on program organization appears that it 
might be very useful to anyone contemplating new routines for problem-solving. 
While by no means as far-reaching as Minsky's Steps Toward Artificial Intelli- 
gence, ‘1!) the paper is quite general, and helps to unite the field, as have 
Minsky's papers. 

Perhaps the project nearest in spirit to ADEPT is the Geometry-Theorem 


Proving Machine of Gelernter. ©*5) 


First reported in 1958, the geometry 
machine is a heuristic theorem-prover designed specifically for one branch of 
mathematics. In fact, like ADEPT, it handles a subclass of the elementary 
theorems of its subject, namely theorems involving congruences, parallel 
lines, and equality or inequality of segments and angles. Over 50 such the- 
orems were successfully proved by the geometry machine, and it became a use- 
ful vehicle for testing special-purpose heuristics. Thus it was the first 
program to successfully handle a significant number of theorems from a par- 
ticular branch of formal mathematics. Like ADEPT, it used a "working back- 
ward" procedure which was ad hoc in formalization, and not complete. Even 
some of the particular Keaeieeies used in the two programs are closely re- 
lated. Both programs single out certain deductions to be made immediately 
on a proof tree line. Also, both programs make use of a diagram. 

At this point of similarity, the divergence between the two projects 
becomes most clear. Gelernter's geometry machine is totally dependent upon 
its diagramming feature. This is in no way a fault of the program; it is to 


its credit that this semantic model proves so powerful for its problem domain. 
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However, anyone acquainted with group theory will hardly be surprised that the 
semantic model used in ADEPT plays a relatively minor role. Of course, the 
relative importance of one heuristic is hardly a major factor for evaluation, 
but its consequences are, for the geometry machine, due to the success of the 
diagram heuristic, did not have to develop any other means for controlling 
proliferation of effort, and indeed was incapable of handling even the sim- 
plest of theorems without recourse to a diagram. With ADEPT, the basic orga- 
nization had to be more clever to allow efficient proofs, and, as argued 
throughout this report, whatever success has been obtained in this regard 
reflects progress toward a theorem-prover which "understands" where it is in 
a proof, and is able to make use of context. The formal part of the geometry 
machine has no such capabilities, for they were not needed. Thus both the 
geometry machine and ADEPT have been success ful programs for a branch of 
formal mathematics, but ADEPT was forced to contain more sophisticated tech- 
niques, and the research involved in their development is more likely to be of 
value in the future. 

The idea of a diagram, or more generally, a semantic model, is a very 
fruitful one, and was first propounded by Minsky. ‘19? A use for a model was 
found in group theory, as seen in ADEPT's MODEL heuristic, and there is every 
reason to believe that other subjects will lend themselves to other realiza- 
tions of this general idea. Certainly future workers in theorem-proving must 
be alert to the possibility of favorable uses of such a feature. 

The other projects relevant to this report are the general question- 
answering systems that come under the heading of Madvice-takere": The 


7) and it is oriented to the develop- 


advice-taker was conceived by McCarthy, 
ment of a system which would be capable of learning and working with any 
subject area, including "everyday situations". To do this, it was designed 
so that it was very general, handling all facts in the same way, and what is 
more, in a rather simple form which was intended to facilitate use of the 


system by many people. Because of this generality, the advice-taker is a 


victim of ambition. Like the combinatorial theorem-provers, it is ill-suited 
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to the introduction of techniques based on context, and heuristics intended to 
become an integral part of the program's structure. Like heuristic programs, 
it lacks formal theory, forcing a reliance on ad hoc programming which in this 
case is thwarted by the proposed generality of the system. Admittedly, 
McCarthy did not see it in this light; rather the advice-taker was to profit 
by an ability to accept heuristics in exactly the same way as the data base 
and questions. But the method of introduction of statements makes use of a 
variation on formal logic which retains some characteristics of English, just 
as in ADEPT. This means that heuristics must also be stated in this form, 
which appears to be a harsh requirement. In theory, a huge bootstrapping 
operation could be undertaken, but this appears beyond the capacity of present 
systems. 

In order to deal in detail with "everyday situations", McCarthy proposed 
that formal predicates of ability and cause be inteaduced, <7? along with 
statements expressing properties of and relations between these predicates 
(such as a statement saying that if A can cause an event a, and if event a 
causes event b, then A can cause event b). Sample problems proposed for the 
advice-taker were stated in terms of these predicates. In some cases, such as 


(20,24) (considered at the end of Chapter VII), the use of 


the Mikado problem 
these predicates was not necessary to express the essential content of the 
problem, as was seen in the version of the Mikado problem posed for ADEPT. 
Still, the expanded version serves as an illustration of a possible way of 
working with a problem-solver of great generality. One should note, however, 
that the character of the problem is not altered by the presence of additional 
predicates and axioms; the result is simply a more complex problem of the 

same type. 

The actual algorithm which is the advice-taker is very simple, and it is 
small wonder that ADEPT has enough deductive power to "answer" versions of 
some advice-taker problems. However, it would be erroneous to claim that 
ADEPT can do anything that an advice-taker can. In fact, two versions of an 


(24) 


advice-taker have been created, one by Slagle and one by Black, ‘1 and 
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both have interesting capabilities not useful for formal mathematics and there- 
fore not included (and difficult to insert) in ADEPT. Slagle's DEDUCOM is 
imbedded in the LISP interpreter, and this simple fact allows great flexibility 
in use of symbol processing and arithmetic capabilities of LISP. Introduction 
of even simple arithmetic to ADEPT would be rather awkward. More importantly, 
both advice-takers allow multiple answers to questions, and the solutions of 
problems created by this feature are non-trivial. 

In terms of ADEPT, the ability to provide multiple answers means free 
variables on table II, something which is not provided for at present. Black 
gives an excellent account of the difficulties these variables create and 
their implications for program organization. The matching routines become 
more complex and, as is to be expected, a larger amount of effort per problem 
is needed in order to find all answers. There is no doubt that multiple an- 
swer capability is necessary to a general deductive system; it is also true 
that it is an ability not needed in formal mathematics such as group theory. 

Early versions of Black's program fell into infinite loops at times be- 
cause they did not check whether a line being put on the proof tree was al- 
ready on the tree. ADEPT checks this in PUTON2, and it does not seem to be a 
time-consuming process, as Black feared. Other loops occurred from axioms 
with hidden pitfalls, like (IMPLIES (NOT (NOT Al)) Al), which would allow to 
a line A2 on the proof tree the reduction (NOT (NOT A2)), which in turn would 
have a reduction (NOT (NOT (NOT (NOT A2)))), etc. ADEPT encountered a very 
similar difficulty in Problem V-F due to the hypothesis £, (a) = £, (@) ==> 
a, = ay: With ADEPT, the problem was circumvented by use of FEQUAL. Black 
also found the form and order of hypotheses to be critical in some problems, 
as did Slagle. To make deductive algorithms independent of such factors would 
almost necessarily introduce an unbearable degree of inefficiency. 

Black experimented with some heuristics to improve his advice-taker. One 
was a bound on the proof tree by means of various length restrictions. This 
purely syntactic strategy was less than satisfying. He discussed possible 


schemes for stopping or avoiding loops. He also proposed grouping axioms and 
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hypotheses according to their main terms or connectives. This is done in the 
present implementation of ADEPT. For one thing, in order to facilitate 
PUTON2's application of common identities, special lists are kept of all 
homomorphisms and factor groups, so that a separate search of table I for 

this information is unnecessary. Table I itself is split into two parts, as 
might be deduced from Figure 4. All the equalities and implications are on 
one part, and only this part is used directly by SCANW. However, such stream- 
lining is hardly of crucial importance to the efficiency and success of the 
program. (Warren Teiteiman >) has also explored some modifications of Black's 
advice-taker. ) 

This concludes the account of various projects related to the ADEPT pro- 
ject and how ADEPT contrasts with them. No mention has been made of other 
important areas in which many feel that significant progress must be made in 
order for any large advances to be made in artificial intelligence. One is 
learning and another is organization of data and concepts. ADEPT is not a 
learning program, and would not be a suitable foundation for one. Learning, 
of course, refers to machine assimilation of knowledge, as opposed to in- 
creasing the "knowledge" of a program by the addition of more routines by .a 
programmer. Slagle points out that his pepucom @4) {and therefore ADEPT) 
"learns" when given more information, such as a new axiom or definition. In 
a limited sense this is true, particularly from the advice-taker orientation. 
Yet it would appear that real machine learning must involve programmed induc- 
tion and generalization or adaptation facilities. 

As for data organization, even less is known on how to proceed. List 
structures have been standard up until now. Indeed, all of the programs men- 
tioned in this chapter under the general heading of "heuristic", including 
ADEPT, have been written using list processing languages. Without these 
languages these programs would have been almost impossible to write. Still, 


one wonders if a fresh view toward data organization could be helpful. 
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APPENDIX II 


THEOREMS PROVED BY ADEPT 


1) (GROUP G) 
NIL 
(SEMIGROUP G) 


2) (AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 
NIL 
(SUBGROUP K G) 


3) (AND (KERNEL K (Fl G H)) (HOMOMORPHISM (Fl G H))) 
NIL 
(NORMAL K G G) 


4) (AND (CENTER C G) (ASSOC G)) 
NIL 
(SUBMONOID C G) 


5) (CENTER C G) 
NIL 
(ABELIAN C G) 


6) (AND (CENTER C G) (AND (GROUP G) (SUBSET G C))) 
NIL 
(ABELIAN G G) 


7) (AND (CENTER C G) (AND (SUBSET HC) (GROUP G))) 
NIL 
(NORMAL H G G) 


8) (AND (SUBSET H G) (AND (ABELIAN G G) (GROUP G))) 
NIL 
(NORMAL H G G) 


9) (AND (SUBSET H G) (AND (ABELIAN G G) (GROUP G))) 
NIL 
(ABELIAN H G) 


10) (AND (INTERSECTION I H J) (AND (SUBGROUP H G) (SUBGROUP J G))) 
NIL 
(SUBGROUP I G) 


11) (AND (INTERSECTION I H J) (AND (NORMAL H G G) (NORMAL J G G))) 
NIL 
(NORMAL I G G) 


12) (AND INTERSECTION I H J) (AND (SUBGROUP J G) (NORMAL H G G))) 


NIL 
(NORMAL I J G) 
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13) (AND (IMAGE I (Fl G H)) (AND (HOMOMORPHISM (Fl G H)) (GROUP G))) 
NIL 
(SUBGROUP I H) 


14) (AND (CONJUGATE D Al H G) (AND (GROUP G) (SUBGROUP H G))) 
NIL 
(SUBGROUP D G) 


15) (AND (AND (SUBGROUP H G) (LCOSET D Al H G)) (MEMBER Al H)) 
NIL 
(SUBSET D H) 


16) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) (GROUP G))) 
NIL 
(SUBSET D G) 


17) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) (GROUP G))) 
NIL 
(SUBSET D A) 


18) (AND (SUBSET A G) (LCOSET D (*IDENTITY G) A G)) 
NIL 
(SUBSET A D) 


19) (AND (GROUP G) (AND (SUBSET A G) (AND (LCOSET D (*IDENTITY G) A G) 
(RCOSET E (*IDENTITY G) A G)))) 
NIL 
(SUBSET D E) 


20) (AND (GROUP G) (LCOSET D Al G G)) 
NIL 
(AND (SUBSET G D) (SUBSET D G)) 


21) (AND (GROUP G) (AND (LCOSET D Al G G) (RCOSET E Al G G))) 
NIL 
(SUBSET D E) 


22) (AND (SUBGROUP H G) (LCOSET D Al H G)) 
NIL 
(MEMBER Al D) 


23) (AND (SUBGROUP H G) (NORMALIZER D H G)) 
NIL 
(SUBSET H D) 


24) (NORMALIZER J H G) 
NIL 
(NORMAL H J G) 


25) (GROUP G) 
NIL 
(NORMAL G G G) 


26) (UNITSET E (*IDENTITY G)) 
NIL 
(NORMAL E G G) 


27) (UNITSET E (*IDENTITY G)) 


NIL 
(SUBGROUP E G) 
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28) (AND (COMMUTATOR Al A2 A3 G) (ASSOC G)) 
(EQUAL2 (*PROD A2 A3 G) (*PROD A3 A2 G)) 
(EQUAL Al (*IDENTITY G)) 


29) (AND (COMMUTATOR Al A2 A3 G) (AND (ASSOC G) (AND (ABELIAN G G) 
(AND (MEMBER A2 G) (MEMBER A3 G))))) 
NIL 
(EQUAL Al (*IDENTITY G)) 


30) (AND (AND (COMMUTATOR Al A2 A3 G) (COMMUTATOR A4 A3 A2 G)) (ASSOC G)) 
NIL 
(EQUAL (*INVERSE Al G) A4) 


31) (AND (AND (COMMUTATOR Al A2 A3 G) (COMMUTATOR A4 A3 A2 G)) (ASSOC G)) 
NIL 
(INVERSE A4 Al G) 


32) (AND (GROUP G) (AND (MEMBER Al G) (MEMBER A2 G))) 
NIL 
(AND (EXISTS A3 (EQUAL (*PROD Al A3 G) A2)) (EXISTS A3.- (EQUAL 
(*PROD A3 Al G) A2))) 


33) (SUBGROUP H G) 
NIL 
(IMPLIES (AND (MEMBER Al H) (MEMBER A2 H)) (MEMBER (*PROD Al 
(*INVERSE A2 G) G) H)) 


34) (GROUP G) 
(EQUAL2 Al (*INVERSE Al G)) 
(ABELIAN G G) 


35) (GROUP G) 
(AND (EQUAL (*PROD Al Al G) (*IDENTITY G)) (IMPLIES (EQUAL 
(*PROD Al Al G) (*IDENTITY G)) (EQUAL2 Al (*INVERSE Al G)))) 
(ABELIAN G G) 


36) (AND (HOMOMORPHISM (Fl G H)) (KERNEL K (Fl G H))) 
(IMPLIES (MEMBER Al K) (EQUAL Al (*IDENTITY G))) 
(ONETOONE (Fl G H)) 


37) (AND (AND (HOMOMORPHISM (Fl G H)) (KERNEL K (Fl G H))) (ONETOONE 
(Fl G H))) 
NIL 
(IMPLIES (MEMBER Al K) (EQUAL Al (*IDENTITY G))) 


38) (AND (AND (AND (LCOSET D Al H G) (SETINV I D G)) (SUBGROUP H G)) 
(GROUP G)) 
NIL 
(RCOSET I (*INVERSE Al G) H G) 


39) (AND (AND (LCOSET D Al H G) (LCOSET E A2 H G)) (AND 
(SUBGROUP H G) (ASSOC G))) 
(AND (MEMBER (*PROD (*INVERSE A2 G) Al G) H) (EQUAL 
(*PROD (*INVERSE Al G) A2 G) (*INVERSE (*PROD (*INVERSE A2 G) 
Al G) G))) 
(AND (SUBSET D E) (SUBSET E D)) 


40) (AND (AND (HOMOMORPHISM (Fl G H)) (AND (MEMBER Al G) (INVPNT I 
(Fl G H Al) (Fl GH)))) (KERNEL K (Fl G H))) 
NIL 
(LCOSET I Al K G) 


41) (AND (NORMAL H G G) (SUBSET K G)) 
NIL 
(NORMAL H K G) 


42) (AND (AND (SUBSET A B) (SUBSET B G)) (AND (CENTRAL C A G) 
(CENTRAL D B G))) 
NIL 
(SUBSET D C) 


43) (AND (HOMOMORPHISM (Fl G H)) (AND (RIMAGE J K (Fl G H)) 
(INVIMAGE I J (Fl G H)))) 
NIL 
(SUBSET K I) 


44) (AND (AND (EPIMORPHISM (Fl G H)) (CENTER C G)) (AND 
(RIMAGE I C (Fl G H)) (CENTER D H))) 
NIL 
(SUBSET I D) 


45) (AND (EPIMORPHISM (Fl G H)) (IMAGE I (Fl G H))) 
NIL 
(SUBSET H I) 


46) (AND (HOMOMORPHISM (Fl G H)) (AND (ABELIAN G G) (IMAGE I 
(Fl G H)))) 


NIL 
(ABELIAN I H) 


47) (AND (AND (HOMOMORPHISM (Fl G H)) (SUBGROUP K G)) (RIMAGE I K 
(Fl G H))) 
NIL 
(SUBGROUP I H) 


48) (AND (NORMAL K GG) (AND (RIMAGE I K (Fl G H)) (EPIMORPHISM 
(Fl G H)))) 
NIL 
(NORMAL I H H) 


49) (AND (AND (HOMOMORPHISM (Fl G H)) (NORMAL K G G)) (AND (RIMAGE I K 
(Fl G H)) (IMAGE J (Fl G H)))) 
NIL 
(NORMAL I J H) 


50) (AND (HOMOMORPHISM (Fl G H)) (AND (SUBGROUP K H) (INVIMAGE D K 
(Fl G H)))) 
NIL 
(SUBGROUP D G) 


51) (AND (HOMOMORPHISM (Fl G H)) (AND (NORMAL K H H) (INVIMAGE D K 
(Fl G H)))) 
NIL 
(NORMAL D G G) 


52) (AND (SUBGROUP H G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 
NIL 
(SUBSET C B) 


53) (AND (SUBGROUP H G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 


NIL 
(SUBGROUP C B) 
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54) 


55) 


56) 


57) 


58) 


59) 


60) 


61) 


62) 


63) 


64) 


65) 


66) 


67) 


(AND (NORMAL H G G) (AND (FACTORGROUP B K G) (SUBFGRP C K H G))) 
NIL 
(NORMAL C B B) 


(GROUP G) 
(IMPLIES (MEMBER Al G) (EQUAL (Fl G G Al) (*IDENTITY G))) 
(HOMOMF (F1 G G)) 


(GROUP G) 
NIL 
(ISOMORPHIC G G) 


(ISOMORPHISM (Fl G H)) 
NIL 
(ISOMORPHIC G H) : 


(ISOMORPHISM (Fl G H)) 
NIL 
(ISOMORPHIC H G) 


(AND (GROUP G) (AND (ISOMORPHISM (Fl G H)) (ISOMORPHISM (F2 H K)))) 
NIL 
(ISOMORPHIC G K) 


(AND (ISOMORPHISM (Fl G H)) (ISOMORPHISM (F2 H K))) 
NIL 
(ISOMORPHIC K G) 


(AND (FACTORGROUP D E G) (AND (UNITSET E (*IDENTITY G)) (GROUP G))) 
NIL 
(ISOMORPHIC G&G D) 


(AND (FACTORGROUP D E G) (UNITSET E (*IDENTITY G))) 
NIL 
(ISOMORPHIC D G) 


(AND (AND (FACTORGROUP D K G) (KERNEL K (Fl G H))) (BPIMORPHISM 
(Fl G H))) 

NIL 

(ISOMORPHIC D H) 


(AND (AND (FACTORGROUP D K G) (KERNEL K (Fl G H))) (EPIMORPHISM 
(Fl G H))) 

NIL 

(ISOMORPHIC H D) 


(AND (AND (FACTORGROUP D K H) (FACTORGROUP E I H)) (AND 
(INTERSECTION I H K) (SUBGROUP K H))) 

NIL 

(ISOMORPHIC D E) 


(AND (AND (FACTORGROUP D K H) (FACTORGROUP E I H)) (AND 
(INTERSECTION I H K) (SUBGROUP K H))) 

NIL 

(ISOMORPHIC E D) 


(AND (AND (FACTORGROUP D I G) (FACTORGROUP E K H)) (AND 
(EPIMORPHISM (Fl G H)) (INVIMAGE I K (Fl G H)))) 

NIL 

(ISOMORPHIC D E) 
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68) (AND (AND (FACTORGROUP D I G) (FACTORGROUP E K H)) (AND 
(EPIMORPHISM (Fl G H)) (INVIMAGE I K (Fl G H)))) 
NIL 
(ISOMORPHIC E D) 


69) (AND (AND (FACTORGROUP A H G) (FACTORGROUP B K.G)) (AND 
(SUBFGRP C K H G) (FACTORGROUP D C B))) 
NIL 
(ISOMORPHIC A D) 


70) (AND (AND (FACTORGROUP A H G) (FACTORGROUP B K G)) (AND 
(SUBFGRP C K H G) (FACTORGROUP D C B))) 
NIL 
(ISOMORPHIC D A) 


71) (AND (ABELIAN G G) (GROUP G)) 
NIL 
(ISOMORPHIC G G) 
(IMPLIES (MEMBER Al G) (EQUAL (Fl G G Al) (*INVERSE Al G))) 
(overriding GENFCN) 


72) (AND (MEMBER Al G) (GROUP G)) 
NIL 
(ISOMORPHIC G G) 
(IMPLIES (MEMBER A2 G) (EQUAL (Fl G G A2) (*PROD (*PROD Al A2 G) 
(*INVERSE Al G) G))) 
(overriding GENFCN) 


73) (AND (GROUP G) (FACTORGROUP D H G)) 
NIL 
(ISOMORPHIC G D) 
(fails on one-to-one, thus proving epimorphic) 


74) (AND (FACTORGROUP D K G) (AND (FACTORGROUP E I #) (AND 
(RIMAGE I K (Fl G H)) (EPIMORPHISM (Fl G H))))) 
NIL 
(ISOMORPHIC D E) 
(fails on one-to-one, thus proving epimorphic) 


75) (AND (LCOSET D Al H G) (AND (LCOSET E A2 H G) (AND (ASSOC G) (AND 
(MEMBER Al D) (SUBSET D E))))) 
NIL 
(MEMBER (*PROD (*INVERSE A2 G) Al G) H) 


76) (AND (SETINV I H G) (AND (NORMAL H G G) (SUBGROUP H G))) 
NIL 


(AND (SUBSET H I) (SUBSET I H)) 


77) (AND (SETINV I H G) (SUBGROUP H G)) 
NIL 
(SUBGROUP I G) 


78) (AND (SETINV 1 H G) (AND (NORMAL H G G) (AND (SUBGROUP H G) (ASSOC G)))) 
NIL 
(NORMAL I G G) 


79) (AND (CENTER C G) (ABELIAN G G)) 


NIL 
(SUBSET G C) 
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80) 


81) 


82) 


83) 


84) 


85) 


86) 


(HOMOMORPHISM (Fl G H)) 

(AND (AND (EQUAL (*SEQ (A9 N2) 1 A) (A9 1)) (EQUAL (*SEQ (F9 A B 
(A9 N2)) 1 B) (F9 A B (A9 1)))) (AND (EQUAL (*SEQ (A9 N2) 
(*SUCCESSOR N3) A) (*PROD (*SEQ (A9 N2) N3 A) (A9 (*SUCCESSOR N3)) 
A)) (EQUAL (*SEQ (F9 A B (A9 N2)) (*SUCCESSOR N3) B) (*PROD (*SEQ 
(F9 A B (A9 N2)) N3 B) (F9 A B (A9 (*SUCCESSOR N3))) B)))) 

(FEQUAL (Fl G H (*SEQ (Al N1) N G)) (*SEQ (Fl GH (Al N1)) N H)) 


(HOMOMORPHISM (Fl G H)) 

(AND (AND (EQUAL (*SEQ A8 A9 1 A) (A8 A9 1)) (EQUAL (*SEQ A8 A9 
(*SUCCESSOR N1) A) (*PROD (*SEQ A8 A9 N1 A) (A8 A9 (*SUCCESSOR N1)) 
A))) (EQUAL (F9 A B (A8 AO N1)) (A8 (F9 A B AY) N1))) 

(FEQUAL (Fl GH (*SEQ Al Al N G)) (*SEQ Al (F1 GH AL) N H)) 


(AND (SEMIGROUP G) (MEMBER Al G)) 

(AND (EQUAL (*EXP A9 1 G) A9) (EQUAL (*EXP A9 (*SUCCESSOR N1) G) 
(*PROD (*EXP AJ N1 G) A9 G))) 

(MEMBER (*EXP Al N G) G) 


(AND ($SUBGROUP (H 1) G) (SSUBGROUP (H (*SUCCESSOR N)) G)) 

(IMPLIES (AND ($SUBGROUP A C) ($SUBGROUP B C)) ($SUBGROUP 
(*INT A B) C)) 

($SUBGROUP (*FININT H N) G) 


(AND (SNORMAL (H 1) G G) (SNORMAL (H (*SUCCESSOR N)) G G)) 
(IMPLIES (AND ($NORMAL A C C) (SNORMAL BC C)) ($NORMAL (*INT A B) C C)) 
(SNORMAL (*FININT HN) G G) 


(NULL) 

(AND (AND (IMPLIES (AND (GROUP A) (LEP (ORDER A) 1)) (EQUAL A 
(*UNITSET (*IDENTITY A)))). (IMPLIES (GROUP A) (AND 
(SHAS *MAX*NORM*SUB A) (AND (GROUP (*MAX*NORM*SUB A)) 

(IMPLIES (LEP (ORDER A) (*SUCCESSOR N1)) (LEP (ORDER. 

(*MAX*NORM*SUB A)) N1)))))) (IMPLIES (S$HAS*COMP*SERIES A) 

(EXISTS N3 (EXISTS (B N4) (COMP*SERIES ((B N4) N3) A))))) 
(IMPLIES (AND (GROUP G) (LEP (ORDER G) N)) ($HAS*COMP*SERIES G)) 


(AND (AND (UNMARRIED*FEMALE N7) (UNMARRIED*MALE N5)) (AND (IMPLIES 

_ (NOT*THINK*DEAD N8 N6) (CAN*STAY*ALIVE N5)) (AND (IMPLIES 
(CAN*APPEAR*SAFELY N6) (CAN*PRODUCE N5 N6)) (AND (IMPLIES 
(NOT*ACCUS ING N7 N6) (CAN*APPEAR*SAFELY N6)) (IMPLIES 
(NOT*CLAIMING N7 N6) (NOT*ACCUSING N7 N6)))))) 

(AND (IMPLIES (EXISTS Nl (CAN*PRODUCE Nl N2)) (NOT*THINK*DEAD N8 N2)) 
(AND (IMPLIES (MARRIED N7) (NOT*CLAIMING N7 N1)) (AND (IMPLIES 
(EXISTS Nl (CAN*MARRY Nl N2)) (MARRIED N2)) (AND (IMPLIES (EXISTS N1 
(CAN*PROPOSE Nl N7)) (EXISTS N1 (CAN*MARRY Nl N7))) (IMPLIES (AND 
(UNMARRIED*FEMALE N2) (EXISTS N1 (UNMARRIED*MALE N1))) (EXISTS N1 
(CAN*PROPOSE N1 N2))))))) 

(CAN*STAY*ALIVE N5) 

(N5 = Koko 

N6 = Nankipoo 
N7 = Katisha 

N8 = Mikado) 
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APPENDIX III 


LISTING OF THE PROGRAM 


The reader who attempts to use the listings included in this appendix 
will find that they do not conform in all details with the descriptions given 
in the body of this report. Any discrepancies of this sort were introduced 
solely to make the report easier to comprehend, and do not really misrepresent 
the actual operation of the program. 

The various LISP functions are made into a system by means of a file such 
as COMPIL. Following execution of this file, the user may call ADEPT = a 
LISP function of two arguments. The first of these is to be either "NIL" or 
"MODEL", and determines whether or not the MODEL heuristic is to be in effect. 
The second argument is to be either "NIL" or "INDUCT", and is the present 
means whereby NSOLVE can be called, when use of mathematical induction is 
desired. (Warning: Even with the special LISP system available to the author 
and extensive use of remos, ©) it was not possible to load all the functions 
into the system at once by use of COMPIL as presented here. This would pre- 
sumably be the case with most LISP systems.) 

The file DEFNS DATA contains the sufficient conditions and definitions 
used by the author. The two remaining lists in this file represent certain 
of the built-in axioms and lattice information for use with the MODEL heuris- 


tic, respectively. 
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ADDANTEC, 162 
ADDCONSQ, 162 
ADEPT, 141 
ALIMATCH1, 169 
ALLSUBSTS, 165 
ALLVBLES, 164 
 ANDARGS, 162 
ANDEND, 169 
ANDTERMS, 169 
APPENDM, 162 
ARGOF1, 166 
ASSOCM, 165 
ASTERISKED, 165 
AT™S, 168 
CADDAAR, 166 
CADDDAAR, 166 
CADDDAR, 166 
CHECKMODEL, 160 
CHNGW, 165 
COMPIL, 172 
COMPOSITION, 155 
CONNECTIVE, 164 


DEFNS DATA, 170-171 


DELPR, 168 
DELIF, 168 
FIFTH, 165 
FREEVBLE, 168 
GENFCN, 154 
GENSET, 160 
GENSUBST, 164 
GENVBLE, 168 
GFIND, 169 
GMATCH, 163 
GMATCH1, 163 
GMEMB, 169 


INDEX TO LISTING 
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GTFEM, 161 
HEM, 159 
HOMOMF, 153 
IMPMATCH, 163 
INVM, 158 
INVH2, 158 
INVREDO, 167 
INVSUB, 167 
ISOLVE, 142 
MASK, 162 
MATCH1, 162 
MEET, 160 
MEMOF1, 167 
MIRGEA, 168 
MODEL MAKE, 160 
MONOMF, 156 
NEXT, 166 


-NOLOOK, 165 


NOWWHICH, 160 
NSOLVE, 143 
ON, 164 
ONLY, 153 
ONLYMEMB, 168 
ON2, 149 
ON2AVER, 162 
PMATCH, 165 
PRODARGS, 167 


‘ PUIN2, 149 


PUTON1, 148 
PUTON2, 149 
PUT2, 149-150 
RESRV, 164 
ROFV, 165 
ROFW, 166 
RPLCE, 166 


RPLCEF, 168 
RPLCL, 169 
RPTSUB, 167 
SCANW, 146-147 
SCNX, 152 
SIFT, 158 
SIXTH, 165 
SLVX, 153 
SOLVE, 144-145 
SOLVEX, 151 
SOLVX, 143 
SOLVXP, 153 
SPREAD, 165 
SUPSUB, 164 
SUPXEC, 164 
SWMEMB, 160 
TACK, 168 
TERMS, 164 
VBLES, 164 
VERIFY, 157 
WLDFN, 155 
WLDFN1, 155 
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ADEPT LIse 


DEFINE( ((ADEPTCLAMBOA(QM5 WH) : 00010 
(PROG(WL WX ¥ Z1 Z2 23 24 N 26 Q QFL U UL QLE QL2 XX CX CX1 LON 00020 
QM1 QM2 QM3 QM4 QM6 FQM2 FQM3 FQM4 U2 UZ ZN VV1 VV¥2 CL Z4A 24B) 00030 
(SETQ N (QUOTE NILLD) 00040 
CFILESEEK(QUOTE DEFNS) (QUOTE DATA)) o00s0 
(CSETQ X (REAO)D) 00060 
(SETQ Y (READ)) 00070 
(SETQ XX CREAD)) ocose 
(SETQ QM1 (READ)) 00090 
(FILEENDRD(QUOTE DEFNS) (QUOTE DATA)} 00100 
H1 - (SETQ Z1 (QUOTEC(NILL~AD(NILL.B)(NILL.C) (NILL.D) (NILL.E) 00110 
(NILE -G)ONILL HP ONILL ST) (NILES) ONELE KD (NILE MDD )) 00120 
(SETQ Z2 (QUOTEC (NILE FLD CNILL.F2) (NILL.F3) (NILL FS) (NILL OFS) 00130 
(NILL.F6)(NILL.F7) (NILE E8) (NILL.F9D))) 00140 
(SETQ 23 (CQUOTEC(NILL.AL)(NILL.AZ) (NILE. AZ) INILL SAG) (NILL OAS) 00150 
CNILL AG) CNILLSAT)CNILL AS) (NILL ADD INILLSALOD(NILLALLIONILEAL2Z9I9) 00160 
(SETQ ZN (QUOTECO(NILL ND (NILE NLD (NILLN2) (NILL.N3) 00170 
(NILE N44) (NILLeN5) (NILE NG) ONILLON7) CNILLNS) (NILLONDDDD) 00180 
(SETQ Q NIL) 00190 
CSETQ QM2 NELICSETQ QM3 NILICSETQ QM4 NILICSETQ QM6 NIL) 00200 
(SETQ QL1 NIL) : 00210 
(SETQ QL2 NIL) 00220 
(SETQ 24 1L)USETQ Z4A 1)CSETQ 248 1) 00230 
(SETQ Z6 NIL) 00240 
(SETQ LON NIL} 00250 
(SETQ VV1 NILICSETQ vv¥2 NIL) 00260 
(SETQ Wi NIL) 00270 
(SETQ W NIL) 00280 
(SETQ U2 (ROFLX())) 00290 
(SETQ Ul (ALLVBLES(VBLES U2))} 00300 
(SETQ Zi (RESRV UL Z1)) 00310 
(SETQ Z2 (RESRV U1 Z2)) 00320 
(SETQ Z3 (RESRV UL Z3)) 00330 
(SETQ ZN (RESRV UL ZN)) 00340 
(SETQ CL (ALLVBLES( TERMS U2 (ALLVBLES(VBLES U2))))) 00350 
(SETQ U3 (ROFLXO))) 00360 
(SETQ U (ROFLX())) 00370 
({COND((CEQUAL(CAR U)(QUOTE IMPLIES)}(GO H1A)))} 00380 
(SETQ UL (CALLVBLES(VBLES U))) 00390 
(SETQ Z1 (RESRV Ul Z1)} 00400 
(SETQ Z2 (RESRV UL Z2)) . 00410 
(SETQ Z3 (RESRV UL Z3)) ‘ 00420 
(SETQ ZN CRESRV UL ZN)) 00430. 
HLA (CONO((EQUAL(CAR U2) (QUOTE ANDI) (SETQ UL (PUTONLICONS Z4A N) U2))) 00440 
(T (SETQ UL (PUTONI(CONS Z4A 248) U2)))) 00450 
(SETQ 248 (ADD1 24B)) 00460 
(CONO( {NULL U3)(GO H1B))) 00470 
(SETQ U2 U3) 00480 
(SETQ U3 NIL) 00490 
(GO H1A) 00500 
H1B (CONO{(MEMBER(CAR U)(QUOTE( ISOMORPHIC ONEONE))) 00510 
({SETQ Ul CISOLVE U))) 00520 
CONULL WHICSETQ UL (SOLVE U))) 00530 

“{T (CSETQ UL (NSOLVE UD))) 00540 
(GO HL) 00550 
y)))) STOP))) 00560 
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ISOLVE LISP 
DEF INEC CT ISOLVE(LAMBDA(UI(PROG(UL EQN FY FV2) 
XL (CCONOL(NULEL CLO(GO X2))) 
€SETQ UL (GTFRM(CAR CLICQUOTE Y) NIL 246)) 
(SETQ Ck (CDR CLD) 
(SETQ 248 (A001 248) 
(60 x1) 
x2. (SETQ Fv (CONS VVi vv2)) 
(SETQ FQM2 QM2)(SETQ FQM3 QM3)(SETQ FQM4 QN4} 
(SETQ EQN (RDFLX(})) 
(CONO((EQUAL{CAR CL) (QUOTE ONEONE))(GO 8))) 
(SETQ Ul (MEMOF1 V¥1 (QUOTE ISOMORPHISM) )) 
X4 (CONDI (NULL U1L}(GO X39) 
(CLEQUAL(COAAR ULDN(COR UIDIGO F6)D) 
(CSETQ UL (COR UL)? 
(GG x4) 
X32 (COND{ (NULL EQND(SETQ EQN (GENFCN(COR UD)))) 
(CONDCINULL EQN)(GO F1))) 
(PRINT EQN) 
{SETQ VV1L (CAR FVD)(SETQ vv¥2 (COR FV)) 
(SETQ QM2 FQMZ)(SETQ QM3 FQM3)(SETQ QM4 FQMG)(SETQ QM6 NIL) 
{SETQ UL (PUTONI(CONS Z24A 24B) EQN)) 
(SETQ Z4B (A001 248)) : 
(SETQ Fv¥2 (CONS v¥i vV¥2)) 
(CONDI TEQUAL(CAR EQN} (QUOTE EMPLIES})(GO AD)) 
(SETQ Ul (WLDFNICOR EQN))) 
(CONOCINULL U1)(GO F2))) 
CSETQ UL (CAAOR EQN)) 
(SETQ VVL (CAR FY¥2))(SETQ Vv¥2 (COR Fv2}) 
(CSETQ QM2 FQMZ)CSETQ QM3 FQM3)(SETQ QM4 FQM4)(SETQ QM6 NIL) 
(GO Al) 
A (USETQ UL (CAARICDAODR EQN) )} 
Al (SETQ UL (SOLVE(LIST(QUOTE HOMOMF) (CONS UL (COR U}D))) 
(CONO( (NULL ULI(GO F3))) 
CSETQ 26 NILD(SETQ LON NIL) 
CSETG Wi NIL) 
(SETQ W NIL? 
(SETQ VV1 (CAR FY2Z))(SETQ V¥2 (COR Fv2)) 
USETQ QM2 FQMZ)(SETQ QH3 FQM3IISETQ QM4 FQM4)(SETQ QH6 NIL) 
(CONDCCEQUALICAR EQNI{QUOTE IMPLIES)}(GO P))) 
Pl (SETQ UL (SOLVEI(LIST(QUOTE ONTO) {CONS(CAADR EQN) (COR U)D)9) 
(CONDC (NULL UL)(GO F4))) 
(SETQ 26 NILD(SETQ LON NIL) 
(SETQ wi NIL) 
(SETQ W NIL) 
(SETQ V¥1 (CAR FVDDUSETQ V¥2 (COR FV)) 
CSETQ QM2 FQNZ)(SETQ QM3 FQM3)(SETQ QN4& FQM4)(SETQ QM6 NIL) 
8B (SETQ UL (MONOMF EQN ND) 
(CONOC(NULL ULN(GO F5))) 
C {(PRINTIQUOTE QED)) 
(RETURN T) 
Fl (PRINT(QUOTE(CANNOT FIND RELATING FUNCTION) )) 
(60 H1) 
F2 (PRINT(QUOTE(CANNOT PROVE FUNCTION WELL DEFINED})? 
(GO H1) 
F3 (PRINT(QUOTE(CANNOT PROVE FUNCTION HOMOMORPHIC))) 
(60 HL) 
F4 (PRINTCQUOTE(CANNOT PROVE FUNCTION EPIMORPHIC))) 
{GO HL) 
F5 (PRINT(QUOTE{CANNOT PROVE FUNCTION MONOMORPHIC) )} 
HL (RETURN F} 
F6 (PRINT U? 
CPRINT(QUGTE BECAUSE)) 
CPRINTILIST(QUOTE ISOMORPHISM} (CAAR UL))) 
(60 C) 
P {(SETQ UL (CADOR EQN)) 
(SETQ V¥2 (SUBST Ui EQN vv2)) 
(SETQ EQN U1) 
(60 Pl) 
yond) STOP)DD))) 
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NSOLVE LISe 


DEFINE CC CNSOLVE{LAMBOACU) (PROG(UL FY). 00010 
(SETQ FV (CONS VVL VV2))(SETQ FQM2 QM2)(SETQ FQM3 QM3)(SETQ FQM4 QN4) 00020 
(SETQ UL (SUBST 1 (QUOTE Nd Ud) 00030 
(PRINTCQUOTELATTEMPTING PROOF BY INDUCTION) )) 00040 
(SETQ Ul (SULVE Ul}) 00050 
(CONDC(NULL ULD(GO F1))) 00060 
(PRINTIQUOTE( BASIS STEP PROVED))) 00070 
(SETQ LON NIL) 00080 
(SETQ Z6 NILDISETQ Wi NILIISETQ W NILI{SETQ V¥1 (CAR FV)D(SETQ V2 00090 
(COR FVDDCSETQ GM2 FQMZ)(SETQ QM3 FQM3)(SETQ GH4 FOM4)(SETQ QM6 NIL?) 00100 
CSETQ Ul (PUTONLICONS Z4A Z4B) (SUBST(QUOTE EQUAL) (QUOTE FEQUAL) U)}) 00110 
{SETQ 248 (ADD1 2481) . 00120 
(SETQ U (SUBST{QUOTE(eSUCCESSOR NI) (QUOTE N} UD) 00130 
(SETQ ZN (RESRV(QUOTE(N)) ZN)) 00140 
(SETQ Ul (SOLVE (CONS(QUOTE INOUCTION) U))) , 00150 
(CONDC (NULL U1}(60 F2))) 00160 
(PRINT(QUOTE( INDUCTIVE STEP PROVED)})) 00170 
(PRINT(QUOTE QED?) 00180 
(RETURN T) 00196 

Fl {PRINT(QUOTE( CANNOT COMPLETE BASIS STEP))) 00200 
CRETURN F) 00210 

F2 {PRINT(QUOTE(CANNOT COMPLETE INDUCTIVE STEP))) 00220 
CRETURN F) 00230 

y)0d) STOP})}99) 00240 

SOLVX Ise 

DEFINEC C{SOLVX(LAMBDA(U)(PROG(UL U2 U3 S} 00010 
(CONDC{ONICADDR U) ZNI(60 B))) 00020 
(60 EXTEND) 00030 

B {SETQ U1 (CADDDR U}) 00040 

BLA (CONDI (TEQUALICAR UL) (QUOTE EXISTS)I(GO 81)) 00050 

CUCONNECTIVE(CAR U1}9(6G 82))) 00060 
CSETQ U2 (MEMOF1 VV1 (CAR U1L))) 00070 

B4A (CONDCINULL U2}(G0 B3))) 00080 
(SETQ U3 (GMATCHICOR UL)D(CAR U2))) 00090 
(CONDCC(NULL U3)(6G0 84))) 00100 
(SETQ U3 (PUTN2 NIL (CONSI{CAR U1) 00110 

(CAR U2Z))(CADDDAR U))) 7 00120 
(CONDCENULL U3)(GO B4))) 00130 
(RETURN U3) 00140 

B84 CSETQ U2 (COR U2)) 00150 
(GO B4A) 00160 

Bl (SETQ Ul (CADDR U1)) 00170 
{60 B1A) 00180 

83 (SETQ U2 (MEMOF1 VV¥2 (QUOTE IMPLIES)}) 00190 

B3A {(CONOC (NULL U2)(GO B2)) 00200 

(CEQUALICAADAR U2) (QUOTE AND))(GO 85)) 00210 
(CEQUALI(CAAOAR U2Z)(CAR UL}I(G0 B6))) 00220 

638 (SETQ U2 (COR U2)) 00230 
{GO B3A) 00240 

B6 (SETQ U3 (GMATCHICDR UL)(COADAR U2))) E 00250 
{CONOC(NULL U3)(GO B36))) 00260 
(SETQ U3 (PUTN2 NIL (CAAR U2) (CADDDAR U})) 00270 
(COND( (NULL U3){GO B38)} 00280 

(CMEMBER U3 (QUOTE(DONE NEXT)) (RETURN U3))) 00290 
(SETQ S U3) : 00300 
(60 836) 00310 

BS {(CONOL(MEMBER(CAR ULD(ATMS(COADAR U2})) 00320 

(SETQ U2 (APPEND U2 (LISTILISTICAAR UZ) (CAR(COADAR U2))) 00330 
{LISTICAAR U2) (CADRICOADAR U2)020090) 00340 
{GO 838) 00350 

B2 (CONOC((NOTINULL S)) (RETURN SID) 00360 

EXTEND (RETURN WIL) 00370 

v3) STOP )))))) 00380 
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SOLVE LISP 


DEFINE(((SOLVECLAMBOA (U) 4 00010 
{PROG(UL U2 U3 U4 Z5 S) 00020 
({CGND((EQUAL(CAR U) {QUOTE INDUCTION) }(GO 199) 00030 

H (SETQ UL (PUTN2 NIL U NIL) 00040 
(COND((EQUAL Ul (QUOTE DONE)}(GO H4))) - 90050 
H2  (COND( (EQUAL(CAAAR W) (QUOTE RELI) (GO H3))) 00060 
(SETQ W1 (APPEND W1 {CONS{CAR WP NILD)) 00070 
(SETQ W (CDR WI) 00080 
(GO H2) 00090 
H3. (SETQ W {CONS{SUBST(GUOTE PNT) (QUOTE RELI(CAR W)}(COR wh)? 00100 
H3A' (COND(CEQUAL(CADAR W)(QUOTE TMPLIES)) (60 HHI) 00110 
({EQUAL Z5 (QUOTE INDUCTION) )(GO 11))) "90220 
(SETQ U (SCANW NIL NILD) 00130 
3B (COND( {EQUAL U (QUOTE DONE))(GO H4)) 00140 
((EQUAL U (QUUTE NEXTV)}(GO HSA)) 00150 
((EQUAL U (QUOTE NEXT))(GO H5))) “+ 90260 

HH (SETQ U (CAR W)) 00170 
(COND ( (CONNECTIVE(CADR U))4GO HOI?) 00180 
(USETO UL (GTFRM(COR UN(QUOTE X)(CADDOAR U) NIL)) 00190 
(CONO( {NULL UL)(GO H8)) 00200 
(CEQUAL Ul [QUOTE DONE)}(GO H4))) 00210 

{GO H5A) 00220 
H8 (SETQ UL (ALLVBLESCTERMS(COR UD CALLVBLES{VBLES(CDR U))9))) 00230 
(SETQ S NIL) 00240 
HBA (CONDC{NULL U1)(GO H8B))) 00250 
(SETQ U2 (CONS(CAR U1) NID) 00260 
(SETQ U3 (COR U1))} 00270 
(SETQ UL NIL) 00280 
H81 (CONDC (NULL U3){GO H82)) 00290 
({(EQUAL(CAAR UZ}(CAAR U3))(SETQ U2 (APPEND U2 00300 
(CONS(CAR U3) NIL}9D) 00310 

{T (SETQ Ul (APPEND Ul (CONS(CAR U3) NILDD))) 00320 
(SETQ U3 (CDR U3)) 00330 
(GO H81) 00340 
H82  (COND( (NULL U21(GO H@3))) 00350 
(SETQ U3 (GTFRM(CAR U2) (QUOTE Y) NIL 248)) 00360 
(CONDU(NULL U3)(GO H821)) 00370 

( (EQUAL U3 (QUOTE DONE)}(GO H4)) - 00380 
((EQUAL U3 (QUOTE NEXT)}(GO HSALD) . 00390 
((EQUAL(CAAR U2) (QUOTE ISOMORPHISM))(SETQ Z48 (AOD1 248)))) 00400 
(SETQ Z5 (QUOTE GEN)) 00410 
W821 (SETQ U2 {COR U2)) 00420 
(GO 82)" : 00430 
H83 (SETQ 248 (ADD1 248)) 00440 
(GO H8A) 00450 
HBB (COND({NULL 25)(GO H9)) 00460 
(ONOTUNULL U))(SETQ 25 NILI)) 00470 
(SETQ U3 (SCANW NIL Z5)) 00480 
(SETQ Z5 NIL) 00490 
(CONDE (NULL U3)(GO H9))) : 00500 
(SETQ U U3) 90510 
(GO H3B) 00520 
HO (COND( (NULL U)(GO H10A)} 00530 
(1EQ S ND(GO H10))) 00540 
(SETQ SN) 00550 
(SETQ U2 (ALLVBLES(VBLES(COR U)))) 00560 
(CONDEINULL U2} (GO H10))) 00570 
H91 (SETQ Ul (APPEND U1 (ARGOFL(CAR U2) VVLI)) 00580 
(SETQ U2 (CDR U2)? 00590 
(CONDI (NOTENULL U2))(GO H91))) 00600 
{GO H8A) 00610 
H6 (CONDI (EQUAL(CAOR U)(QUOTE IMPLIES)) (GO H6A)) 00620 
((EQUAL(CAOR U)(QUOTE DEFER))(GO H6E))) ; 00630 

(60 H8) 00640 
H6A (SETQ U1 (ALLVBLES(VBLES{CADDR U}})) ’ 00650 
(SETQ Ul (RPLCL U1)) 00660 
(COND (NOTINULL U1))(SETQ U (CONS(CAR U) (GENSUBST 00670 
(CAR ULICCDR ULM(COR UID)))) 00680 

(SETQ Ul (PUTONII(CONS 24A Z24B8)(CADOR UD)? . a , 00690 
(SETQ 248 (ADD1 248)) : 00700 
(COND(KEQUAL Ul {QUOTE DONE)}(GO H4)) ; "99710 
(CEQUAL U1 (QUOTE NEXT)}(GO HSADD) 00720 
(SETQ U1 (PUTN2 NIL (CADDDR U)(CADODAR U))) 00730 
H6AL “(CONDC(NULL U1)(GO H8)? 00740 
((EQUAL Ul [QUOTE DONE)H(GO H4))) Pan By te 00750 

(60 H5A) "99760 
HOE {SETQ Ul (PUTN2 NIL {CADDR U)(CADDDAR ‘UI))- - 00770 
(GO HEAL) ; 00780 
H10 {(COND((EQUAL(CADR U) (QUOTE EXISTS)}(GO H6B))) ae 00790 
H10C (SET U NIL) 00800 
(SETQ Ul CL) 00810 
(GO H8A) 00820 
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H10A (COND((EQUALICADAR W)(QUOTE EXISTS))(GO H6B)) 
{CEQUAL(CADAR WI(QUOTE FEQUAL))(GO H6D))) 
H10B {(PRINT(QUOTE(DRASTIC MEASURES NEEDED))} . 
CPRINT (QUOTE (TYPE YES IF POINTER SHOULD BE MOVED DOWN))) 
(SETQ U (ROFLX())) 
(COND( (EQUAL U [QUOTE YES}){GO H5))) 
(GO H4F) 
HOB (SETQ Ul (SOLVEXICAR W))) 
H6B1 (COND( (NULL U1){GO H6BA)) 
(CEQUAL U1 (QUOTE NEXT))(GO H5)) 
(CCEQUAL Ul ND(GO H5A)) 
* CCEQUAL Ul (QUOTE DONE) ) (GO H4))) 
H6BA (COND((NOT(NULL U))(GO H10C))} 
(SETQ Ul CSOLVX(CAR W))) 
(CONDC(NOTCNULL UL))(GO H6B1))) 
CPRINT(QUOTE EXISTS)) 
(60 108) 
H6D (SETQ Ul (HOMOMFICDAR wW))) 
(COND( (EQUAL Ul (QUOTE NEXT))(GO H5)) 
CUNOTC(EQUAL U1 {QUOTE DONE)))(GO H10B)1) 
H& (PRINT VVLICPRINT V¥2)(PRINT WLP CPRINT W) 
CRETURN T) 
H51 (SETQ 24B (ADD1 248)) 
HS (COND( (NULL (NEXT NEILDD(GO HS5SE))) 
(GO HH) 
H5Al (SETQ 248 (ADDL 24B)) 
H5A (CONDC(NOT(NULLO(NEXT NIL)}9(GO H3A))) 
HSE (PRINT(QUOTECPANIC HSE SOLVE))} 
HOF (PRINT VVLDCPRINT VV2)(PRINT WLICPRINT W) 
{RETURN F) ‘ 
I (SETQ 25 (CAR UD) 
(SETQ U (COR UD) 
(GO H) 
Ik (SETQ Z5 NEL) 
(GO HH) 
Y)00) STOPDDDIDDD 
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SCANW LISP 
DEFINEC(C (CSCANW(LAMBDA(L LL) 
ag Sl U Ul U2 U3 US US U6 UT ue FLG) 
* (SETQ S NIL) 
Mt SETO FLG NIL) 
CSETQ UL CONLYCAPPEND Wl W) (QUOTE(VERA2)})) 
ALA (COND{(NULL U1)(GO A2)) 
CC MEMBER(CADDDAAR U1) 26)(60 AAD) 
CUMEMBER( QUOTE HEAD) (CADAAR UL)IISETQ FLG (CONS(SIXTH 
(CAAR UL)) FLGD))} 
AA (SETQ Ul (COR U1)? 
(60 ALA) 
A2 (CONDC (NULL WI(SETQ Ul NIL)) 
CCNULL LLICSETQ U1 (CONSI(CAR Wd NIL)D) 
CCEQUAL LL NDCSETQ Ul (COR W))) 
(T USETQ Ul W))) 
A2A (COND((NULL U1)(GO C))) 
(SETQ U2 (CAR ULD} (SETQ U1 (COR UL) 
(COND((NOLGOKICADDDAR U2))(GO AZA)) 
((MEMBERICADR UZ) (QUOTEC IMPLIES FEQUAL DEFER OR)))(GO A2ZA))) 
(SETQ U CROFV(FIFTHICAR U2)) FLG)) 
(SETQ U4 NIL) 
(CHNGW U2) 
A2B (CONDC( {NULL U)(GO A3))) 
(SETQ U3 {CAR UID CSETQ VU (COR UD) 
(CONDI CEQUAL(CAOR U3) (QUOTE IMPLIES))(GO B4)) 
CCEQUALICADR U2Z)(QUGTE EXISTS))(GO A2B)) 
. COMEMBER(CONS(CADODAR U2){CDAR U3)) LON) (GO acer 
(CEQUAL(CADR U3) (QUOTE EQUAL)) (GO B3)) 
(CEQUAL(CADR U3)(QUOTE EQUAL2))(GO 62)) 
(CEQUALICADR UZ)(QUOTE ASSOC))IGO 86))) 
{GO A2B) 
A2 (CONOC(NULL U4)(GO A2A)) 
CCNULL S)1GO A31}) 
CONOLOOK{(CADDDAR U2))(GO A2A))) 
A31  (SETQ US (CAAR U4)) 
(SETQ U6 (CDAR U4)) 
{SETQ UT (COR U4)) 
(SETQ US NIL) 
A3A (COND( (NULL U7}(G0 A3B))} 
(CEQUAL U5 (CAAR UT))(SETQ U6 (APPEND U6 {COAR U7)))) 
(TF (CSETQ U4 (APPEND U4 (CONSICAR U7) NILDDDD) 
(SETQ U7 {COR U7)) 
(GO A3A) 


A3B (COND((CMEMBER(CAOR U2) (QUOTEC EQUAL EQUAL2))}(SETQ U (CADDR U2))) 


{Tt (CSETQ UG (COR U2)))) 
(SETQ U6 (SUPXEC U6 U)) 
A3D (CONDC(NULL U61(60 A3)) 
(CMEMBERICADR UZ) (QUOTECEQUAL EQUAL2}}) 
(SETQ U (LISTI(CADR U2)(CAR U6)(CADOOR U2)1)) 
(T (SETQ U (CAR U6)))) 
(SETQ U6 (CDR U6)) 
(SETQ U3 (PUTN2 (COND ( (MEMBER (CAAR U2) (QUOTECRELL PNT))) 
NELDCT (CAAR U2)}) U (CADODAR U2))) 
{CONO( (NULL U3)(GO A3D)) 
CCEQUAL UZ (QUOTE DONE} ) (RETURN U3)) 
(CEQUAL U3 (QUOTE NEXT))(GO A3E}}) 
A301 (SETQ SN) 
(GO A30) 
ASE (CONDCCNULL LLICRETURN(QUOTE NEXTV)})) 
(SETQ $1 U3) 
(GO A301) 
B2 (SETQ U5 CALLSUBSTS(CAODR U3)(CADDOR U3) 
{COR UZ2)(COAR U3))} 
(COND( (NULL U5)(60 B3))) 
(SETQ U4 (APPEND U4 (CONS U5 NIL))) 
B3 (SETQ U5 (ALLSUBSTS{CADDOR U3)N(CADDR U3) 
(COR U2N(CDOAR U3))) 
B3A (CONOCINOT(NULL U5))(SETQ US (APPEND U4 (CONS US NIL))))) 
(GO A2B) 

B6 ee #PROD) (ALLVBLESC(ATMSI(COR U2))))) 

(60 A2B8))) 
(SETQ US LASSOCMI(CADDR U3)(CDR U2)(COAR U3))) 
(GO 834) 
B4 (SETQ US CALLMATCHI(CADDOR U3Z)(COR U2))) 
B41 (COND( (NULL U5)(60 88)) 
CONULEL S)1GO 841A)) 
CCNOLOOK {CADDOAR U2))(GO A2ZA}}) 

B41A (SETQ U6 (PUTN2Z(COND( (MEMBERICAAR U2Z)(QUOTEEREL] PNT))) 
NILDCT (CAAR U2Z)) (GENSUBSTICDAR USIICAAR U5) 
(CADOR U3) (CADDDAR U2))) 

(CONDUINULL U6}(GO B4A)) 
(CCEQUAL U6 (QUOTE DONE) } (RETURN U6)) 
CCEQUAL U6 (QUOTE NEXT))(GO 848))) 
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00140 
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00420 
00430 
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00450 
00460 
00470 | 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00660 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
90820 
00830 


eS 


B418 {(SETQ S N) 00840 


842 (CONDI TEQUALICAAR U2) (QUOTE REL)) (GO 84C)) 00850 
(CEGUALICAAR U2) (QUOTE PNT-DDCSETQ SL (QUOTE NEXT)}}) 00860 
B43 (SETQ LON (CONS{CONS(CADODAR U2){COAR U3)) LOND) 00870 
843A (SETQ US (CDR US5)): 008so 
(60 841) 00890 
B4A (COND(I(ON(GENSUBSTICDAR U5) (CAAR U5){CADOR u3)) 00900 
(ROFWICADDOAR U2))){60 842))) 00910 
(GO B43A) 00920 
B4B (CONOCINULL LLICRETURNIQUOTE NEXTV)))) 00930 
(SETG S1 U6) 00940 
{60 8416) 00950 
B4C {(SETQ U6 (GFINDICADDDAR U2)))} 00960 
(COND((EQUALICAAR U6) (QUOTE REL)}ISETQ W (SUBST 00970 
(SUBST(QUOTE RELIC QUOTE REL) U6) U6 WIP)? co9e0 
(60 B43) 00990 
BS - (COND( (MEMBER ICONSI(CADODAR U2)(CDAR U3)) LON) (GO A2B))) 01000 
‘ CSETQ US CIMPMATCHICADDDR U3)(COR U2))) 01010 
ALO (CONO{ {NULL U5)(GO A2B)) 01020 
CONULL S$)(60 881)) 01030 
- CONGLOOKICADDDAR U2Z)}1(G0 A2A))) 01040 
BBl (SETQ U6 (GENSUBSTI(CDAR US)(CAAR US)I(CADDR U3))) 01050 
(CONDI (ON U6 (APPEND V¥1 V¥2))(GO B8A)) 01060 
CCEQUALICAR U6) (QUOTE ANDI)(GO AlOC))) © 01070 
Al0B = (SETQ U7 (ONZAVER U6)) 01080 
(CONDE (NOTINULL. U7))(GO A14)) 01090 
(CEQUALICAAR U2){QUOTE A2}}(GO ALOA)) 01100 
CONULE Ld(GO ALOF)S 02110 
CCEQUAL L U6}1GO A106))) 01120 
AlLGA {SETQ US (COR U5)) 01130 
(60 alo) 01140 
AlOG (CONOCINOTCEQUALI(CADR U2){QUOTE EXIST))} (GO ALOA))) 01150 
(SETQ S (SCNX S {CADR LI(CAR US)(CADDDR U3) U2)) 01160 
{CONDI CEQUAL S (QUOTE DONE) ) (RETURN S)) 012870 
CCATOM S)(GO A1OA))) 01180 
(SETQ L (COR S)) (SETQ S (CAR S)) 01190 
{GO ALOA) : 01200 
ALOF (SETQ U6 (PUTONZILIST(QUOTE AZ) (LIST(QUOTE HEAD)?} 01210 
(LISTULQUOTE NONE)? 24 N (CAAR U3)) U6 NILDD 01220 
(CONDCINOTCNULL U6))(SETQ S ND) : 01230 
{GO A10A) . 01240 
ALOC (SETQ U7 CANDARGS U6)) ; oe 01250 
A100 {(COMDC(NULL U71I(GO BSA}? : 01260 
CCEQUALICAAR UT) (QUOTE AND))(GO A10E)) 01270 
CCON(CAR UTICAPPEND V¥1l ¥V¥21)(GO ALOE))) 01280 
(Go A108) 01290 
ALOE (SETQ U7 {COR UT7)) 01300 
(60 A10D) 01310 
Al4 UCONO((MEMBER(QUOTE HEAD) UT)(GD Al4A)) 01320 
: CTEQUALICAAR UZ) (QUOTE A2Z)}(GO ALOA})) 01330 
AlL4A (SETQ US (CONS Z4A U8)) 01340 
{SETQ U7 (PUTONLICONS Z4A (COAR U3)) U6)) 02350 
{COMDC(NULL U7)(60 88B}) 01360 
COMEMBERICAR UG) (QUOTE(AND EXISTS))) 01370 
(SETQ U (APPEND U (ROFVICAR US) NIL}))) “01380 
CCREMBER(CAR U6G)(QUOTETEQUAL2 EQUAL IMPLIES})) 01390 
(SETQ U (APPEND U (CONS {CONS {CONSICAR us) 01400 
(COAR U3)) UGINTLIDDD) ‘ 01410 
{COND( (EQUAL U7 (QUOTE DONE) (RETURN U7)) . 01420 
(CEQUAL UT (QUOTE NEXTI}DISETQ Sl u7)) : 01430 
(SETQ S N) 01440 
CCONOLCEQ(COR U8) NI{GO 88B))) 01450 
BBA {(SETQ U6 (GENSUBSTI{CDAR USIICAAR USP(CADODR U3))) 01460 
(SETQ U8 N} 01470 
(60 Al4A) : j 01480 
68B (SETQ US NIL) 01490 
(60 Al1O0A) 01500 
C (SETQ 26 (APPEND FLG Z6)) 01510 
‘(COND( {NULL LL)(GO 0)? 01520 
({(NULL S)ICRETURN $1)) ' 01530 
CCNULL SLICSETQ LL (QUOTE GEN) )) 01540 
CCEQUAL S1 (QUOTE NEXTI)(GO C1))) 01550 
(60 Al) 01560 
Cl (¢(SETQ UL (NEXT NILD) 01570 
(CONDC (NULL U29(GO C2))) 01580 
(SETQ SiN) 01590 
(SETQ LL (QUOTE GEN)} 01600 
(GO Al) . 01610 
C2 CPRINT(QUOTE(PANIC C2 SCANW))) 01620 
CRETURNOQUOTE DONE?) 01630 
D (CONDCCNOT(NULL SLID (RETURN {SUBST( QUOTE NEXTV) (QUOTE NEXT) S1)}) 01640 
CONULL S)(SETQ LL ND) 01650 
{GO Al) 39903 STOPDDDI2) 01660 
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PUTONL Lise 
OEFINE( ((PUTONI(LAMBDA(L UDCPROG(UL U3 U4) 
(COND((MEMBERICAR U)(QUOTE(IMPLIES EQUAL EQUAL2 ASSOC))} 
(60 C)) 

CCEQUALICAR U}(QUOTE AND)){(GO B2)) 

(CEQUAL(CAR UP(QUOTE IMPLIES2})(GO B)) 

(CON U VVL)CRETURN NILD)) 

(SETQ Ul N) 

(SETQ Z4A (ADDL 24A)) 

(SETQ VVi [APPEND VV1i (CONS(CONS L U) NIL?)? 
(CONDI EQUALICAR U) (QUOTE EXISTS})(GO B1)) 

(CEQUALICAR U) (QUOTE GROUP) )(SETQ Q (ALLVBLES(CONS 
(CADR U) Qd))) 

CCMEMBER(CAR U) (QUOTEC HOMOMORPHISM ISOMORPHISM 
EPIMORPHISM MONOMORPHISM}}DICSETQ Qt1 
(GTFRM(CONS( QUOTE HMPRP)(CDOR U)) 

(QUOTE XX) NIL QL1))?} 

CCEQUALICAR U} (QUOTE FACTORGROUP)I(SETQ QL2 (GTFRM 

(CONS(QUOTE FGPRP)(COR UDP(QUOTE XX) NIL QU2)9) 
{CONOC(NULL QM5)1G0 A2)) 
(CANDCEQUALI(CAR UI} (QUOTE MEMBER) )(ATOMICADR U)}) 
(SETQ QM2 (CONS{CDOR U) QM2)))) 
(MODELMAKE U) 
A2 {COND((NOT(ON U CAPPEND Wl W))} (RETURN U1))) 
Al (SETQ U3 (VERIFY U)) 
(COND( (NULL UZ) (RETURN U1))) 
CRETURN U3) 
C (CONDICON U V¥2)(RETURN NIL))) 
(SETQ U1 'N} 
(SETQ Z4A (ADDI 24A)} 
(SETQ VV2 (APPEND vv2 (CONS{CONS L U) NILD)) 
(CONDI (EQUALICAR UD (QUOTE ASSOCI)(SETQ Q (ALLVBLES 
({CONS(CADR U) Q))))) 
(COND( (ON U CAPPEND Wl W))(GO Al}) 

CCEQUALICAR U) (QUOTE EQUAL)){SETQ U (CONS(QUOTE EQUAL2 
YCCOR U)))) 

(CEQUAL(CAR U)( QUOTE EQUAL2))(SETQ U (CONS(QUOTE EQUAL) 
{COR Ud)? 

(GO A2) 

81 (COND({NOT(ON U (APPEND Wl W))){GO B1AD)) 
(SETQ U3 (VERIFY UD) 
(CONO(CEQUAL U3 (QUOTE DONE) {RETURN U3)} 

{(EQUAL U3 (QUOTE NEXTIPISETQ Ul U3))) 

BLA (COND((ON(CADR U) 232060 B1B))) 

(PRINTCQUOTECEXISTS BLA PUTON1))) 
(RETURN (QUOTE DONE)? 
81B (SETG U3 (GENSYM)) 
(SETQ U4 (SUBST U3 {CADR U)(CADOR U))D) 
(COND ( (NULL (GENVBLE(CADOR UD)D{SETQ Z3 (CONS 
(CONS(QUOTE RES) U3) 23))) 
{T (SETQ 23 (CONS(CONS(QUGTE GEN) U3) 23199) 
(SETQ U3 (PUTONL(CONS Z4A {COR L)) U4)) 
(GO B2A) 

B (SETQ U (LIST N (LISTCQUOTE IMPLIES) (SUBST{(QUOTE EQUAL) 
(QUOTE SEQUAL)(CADDR U}I{CADR UIIILIST(QUOTE IMPLIES) 
(CADR UDCSUBSTCQUOTE EQUAL2) (QUOTE SEQUAL)ICADOR U13111 

62 (CONDUC CNOT(EQUAL(COR L) N}D}(GO B21)) 


(CCEQUALICAADR U)(QUGTE AND)I(SETQ Ul (PUTONL L (CADR U)))) 


(T (CSETQ UL (PUTONIL(CONS{CAR L) Z4B)(CAOR UDD))) 
(SETQ Z4B (ADD1 248)) 
(GO B22) 

B21 (SETQ UL (PUTONY L {(CADR U))) 

B22 (COND( (EQUAL Ul (QUOTE DONE) ) (RETURN U1)) 
CONOTCEQUAL(COR L) NDICSETQ L (CONS Z4A {CDR L)))?} 
(CEQUALICAADDR U) (QUOTE ANDIDISETG L (CONS Z24A N))} 
{T (SETQ & (CONS 24A 24B)))) 

(SETQ U3 (PUTON1 L (CADOR U))) 


B2A (COND(COR(NULL U1) (MEMBER U3 (QUOTE(NEXT DONE))) (RETURN U3))) 


(RETURN U1} 
Y)09) STOP)IDDD) 
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PUTON2 Lisp 


DEFINEC EC PUTN2(LAMBOA(L U M)(PROG{UL) 
(CONDC(NULL LOCSETQ L (QUOTE REL)))) 
(CCONDCCNULL MICSETQ Ul (CONS(QUOTE HEAD} NIL))) 


CCATOM MICSETQ UL (CONS M NIL})) 
(T CSETQ UL (CONS{CAR M) NILDI)) 


(RETURN(PUTON2Z(LIST L U1 (CONS(QUOTE NONE) NIL} 24 N) 


UMP) 9900) 


DEFINE ( ((PUTON2Z(LAMBDA(L U M)(PROG() 
(COND( {ON U (APPEND WL WI) ERETURN(ON2 LU M))) 


BO 
Bl 


CCEQUALICAR L)(QUOTE A2))(GO Ad)? 
(RETURN(PUT2 L U M)} 
(COND((MEMBER(COR U) QM2)(GO BO)) 
CCMEMBER(COR UP QM6)(GO B3)) 

CONULL (CHECKMODEL(COR U)))(GO 82))) 


(GO BO) 


B2 
B3 


CSETQ QM6 (CONSICDR U) QM6)) 
(CONDUCATOM M){RETURN NILI)) 


(RETURN (QUOTE REJECT)) 


A 


(CONDC(MEMBERICAR U)(QUOTEC IMPLIES EXISTS IMPLIES2 FEQUAL))) 


(RETURN NIL)) C€CNULL QM5)(GO B0)) 
CCAND(EQUALICAR U)(QUOTE MEMBER)) (ATOM(CADR U})I(GO B61))) 


{GO BOY ))))) 
DEFINE(C({ON2Z(LAMBDA(L U M)(PROG(U3) 
(CONDC (NULL M)(GO A1D}) 


( (ATOM M)(GO ALA))) 


(SETQ U3 (ADDANTEC(CAR M) UD) 
(COND(K{NULL U3)(GO ALC)) 


CONULLO(COR M}) CRETURN U3)) 
(CEQUAL U3 (QUOTE BI)(GO A1C))) 


{SETQ U3 CADOCONSQ(CONSI{CADR M) U3)(CAR M))) 
(RETURN N) 


AlA 


(SETQ U3 (ADDANTEC M U)) 


(CONOCCNULL U3) (RETURN NIL)D) 


((EQUAL U3 (QUOTE 8))(GO AlF))) 


(SETQ U3 CADDCONSQ U3 M)) 
(RETURN N) 


A1C 


(COND((NULL{COR M) (RETURN NIL))) 


(SETQ U3 CADOCONSQ(CADR MI(CAR M)}) 
(RETURN N} 


AlD 


(CONDU(NOTCEQUALICAR LI(QUGTE A2))}(RETURN NILD)) 


(SETQ U3 (CAR(GFIND U))) 
(CONDC(NOT(IMEMBERICAR U3) (QUOTE(A2 VERA2)})) (RETURN NIL)) 


COMEMBER(QUOTE HEAD)(CAOR U3)) (RETURN NIL))) 


(SETQ M (SUBSTICONS(QUOTE HEAD) (CAOR U3))(CADR U3) U3)) 
(SETQ M (APPEND M (CONS(SIXTH £) NIL))) 
(CONOC(ORINULL WIC LESSP(CADDDR UZ}(CADODAAR W})) 


(SETQ Wl (SUBST M U3 Wl))) 
(T (SETQ WwW (SUBST M U3 W)))) 


(RETURN NIL? 


ALF 


(SETQ UZ (VERTFY(COR(GFIND M)})) 


(CONO( (NULL UZ)(RETURN N))) 
(RETURN U3) 993)? 
COMPILEC({PUTN2 PUTON2 ON2)) STOP)))) 


PUuT2 LISP 
DEFINEC(CPUT2Z(LAMBOA(L U M)(PROG(Z UL U2 U3 U4 LI) 
(SETQ Ul N) 
(SETQ Z 24) 


(SETQ Z4 (ADDL 24)) 
CCONO((MEMBER(CAR U}(QUOTE{AND OR IMPLIES2)))(GO B4))) 


B5 


(SETQ W (APPEND W (CONS (CONS L U) NIL)}) 


(CONDUCNULL M)(GO A2)) 


(CATOM M)(GO 81)) 
(CNULL(COR M))(GO A2A)))} 


(SETQ U3 (CADOCONSG(COR M)(CAR M)}) 


(GO A2) 
A2A (SETQ Ul (QUOTE A)) 
(GO A2) 
BL (SETQ U3 (ADDCONSQ Z M)} 
AZ (CONO((ON U (APPEND VV¥1 VV¥2}) (GO A3)) 
CONOTINULL QFLI)(GO C1))) 
A2C (COND((MEMBER(CAR U)(QUOTEC( IMPLIES EQUAL EQUAL2))}(G0 A6)) 


CCEQUAL(CAR UI(QUOTE I[MPLIES2))(GO I}) 

CCAND(NULL CX) (CEQUAL(CAR UP (QUOTE EXISTI)9(GO ED) 
CUCEQUAL(CAR UD {QUOTE OR)II(GO D)) 

CCEQUALI(CAR U) (QUOTE ANDI}(GO A7))) 
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A2B  (SETQ -US (ALLVBLES(ATMS U))) 
(SETQ U2 CINVM U U4)} 
(CONDECNULL U2) CRETURNCHFM U US UL L Z)))) 
(SETQ W (SUBSTICONS N (COR LDP L WwW)? 
(SETQ U3 CPUTN2(CAR LI U2 Z)) 
(GO A1L2A)} 
B& (SETQ L1 {CAR L)} ; 
(CONOCINOTCEQUAL L1 (QUOTE A2)}){SETQ & (CONS N {COR LD)D}). 
(GO 65) ; 
AZ (SETQ U3 (VERIFY UD) 
CCOND(CEQUAL Ul (QUOTE ADI(SETQ Ul (QUOTE B))) 
({EQUAL UZ (QUOTE DONE) I(RETURN U3)) 
(CEQUAL U3 (QUOTE NEXT))(GO A9A))) 

ASB (COND(TEQUALICAR UI (QUOTE ANDDI{GO A10})) 

AS (RETURN UL) 

A6 (CONDI CEQUALICAR U) (QUOTE EQUAL)}(GO AGA) 
(CEQUALICAR U)(QUOTE EQUAL2))(GO A68)}) 

A6C (CONDI TEQUAL(CADR UD(CADOR U)){GO A3ZD)} 

{GO Aa2B) 
A6A (CONDI TON(CONS(QUOTE EQUAL2)(COR U)) V¥2)(GO A3))} 
(60 Aé6C) 
A6B (CONDI (ON(CONS{QUOTE EQUALHICOR UI) ¥V¥29(GO A3))) 
{GO A6C) 
AT (SETO U2 24) : : 
(CONDI CANDUEQUAL(CAADOR U)(QUUTE MEMBER) )(ATOM(CAR{CDADOR UI)I)D(GO ATA 
>? 
ATB (SETQ UZ (PUTN2 LE (CADR UD(CONS Z NILDD) 
(CONDE (NULL U3)(60 A12)) 
((MEMBER U3 (QUOTEC(NILE ADD) (GO Al2)) 
CCEQUAL U3 (QUOTE B1I(GO A1l3A)) 
(CEQUAL U3 (CUOTE NEXTV))(GO AL3B)} 
{EQUAL U3 (QUOTE DONE) (RETURN U3)) 
(CEQUAL UZ (QUOTE NEXTIDCSETQ Ul U3)) 
((EQUAL UZ (QUOTE REJECTI) (RETURN NIL)) 
{T (SETQ U2 U31)) 
Al2 (SETQ -U3 (PUTN2 L1 (CADDR UDC(CONS Z (CONS U2 24))9) 
AL2ZA (COND( (MEMBER U3 (QUOTE(DONE NEXT) ICRETURN U3))) 
(GO Ag) 
ATA (SETQ YU (LESTICAR Ud(CADOR UI(CADR UD)? 
(CONOCENULL QM5)(GO A7B)) 
CLANDC EQUAL (CAADOR U) (QUOTE MEMBER} ){ATOMICARICDADDR U)})) 
: CSETQ U (NOWWHICH U)9)) 
(GO AT8) 
ALO (SETQ U4 (ANDARGS U)) 
Al6 (CONOD{{NULL U4)(GO A8)) 
CCONICAR US) CAPPEND WE -WI){GO A15))) 
AlT (SETQ U4 (COR U4S)) 
(GO A16) 
AIS (SETQ UZ (VERIFY(CAR U4))) 
(COND( (EQUAL U3 (QUOTE OONE)) (RETURN U3)) 
TCEQUAL UZ (QUOTE NEXT)I(GO ALSA)D}) 
(60 Al7) 

ALSA (COND( (EQUAL Ul (QUOTE BI) {SETQ UL (QUOTE NEXTVID) 

(T (SETQ UL (QUOTE NEXTID)) 
(GO Al?) 
ASA (COND(LEQUAL UL (QUOTE B))(SETQ UL (QUOTE NEXTV))) 
(T (SETQ Ul (QUOTE NEXT)))) 
(GO A968) 
A13B (SETQ Ul (QUOTE NEXT)) 
AL3ZA (SETQ U3 (PUTN2 LI (CADOR U) Z)) 
(GO AlL2A) 
C1 (CONDO CANDCEQUAL(CAR LI{QUOTE REL) (ON U QFID) 
(RETURN(QUOTE DONE)D))) 
(60 a2c) 
O (SETQ U3 (PUTN2 L1 {(CAOR U) 2)) 
(CONDITEQUAL U3 (QUOTE NEXT))(SETQ UL U3)) 
CCEQUAL UZ (QUOTE DONE) D (RETURN U3))) 
(60 A1L3A) ; 
IT (RETURN(PUTN2 LL CLIST(QUOTE ANDDI{LEST(QUOTE IMPLIES) 
CSUBSTI QUOTE EQUAL2)(QUOTE SEQUAL}(CADOR U)I(CADR UD) 
(LIST(GUOTE IMPLIESHICADR UNCSUBST(QUOTE EQUAL) 
(QUOTE SEQUAL)(CADDR U)))) Z)) 
E (SETQ LL (SLVX Ud) 
(CONDI (EQ L1 NICRETURN(QUOTE DONE))) 
1060 A2B) 

200) COMPILECCPUT2)) 

STOPD)))) 
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SOLVEX Lise 
DEF INE({ (SOLVEX(LAMBDA(U) : 
(PROG(Z Ul S U2 U3 U4 US U6 QF2 L U7 FU) 
(CCOND((NOTCON(CADDR U) Z3)) (RETURN NILDD) 
(SETQ U7 (GENSYM)) 
(SETQ Z3 (APPEND Z3 (CONS(CONS N U7) NILD)) 
€SETQ FU (CDR U)) 
' (SETQ U (SUBST U7 (CAODR U) Ud) 
(SETQ Z 24) 
Al (SETQ Ul (CADDDR U)) 
(SETQ L ND 
(SETQ U2 (QUOTECEQUAL EQUAL2))} 
(COND( (MEMBERICAR UL} U2}(GO A2)) 
(CEQUALICAR ULICQUOTE AND} I(SETQ Ul (COR U1)D)) 
(T CRETURN NILDD) 
({COND( (MEMBERI(CAAR U1) U22(GO A1C)) 
(CEQUALICAAR ULD( QUOTE MEMBER))(GO A1B))) 
(RETURN NIL) 
ALB (COND (EQUALICADAR U1) U7)I(SETQ L (CAR ul)? 
(T (RETURN NILDD) 
CCOND((MEMBERI(CAAOR U1) U2) (SETQ Ul (CAOR U1))) 
CT (RETURN NILDD) 
(60 .Al10) 
AIC (CONDI (EQUALI(CAADR U1) (QUOTE MEMBER}) (SETO b (CAoR Ulbbd 
'  (T (RETURN NILDD) 
(CONO((EQUAL(CAOR £) U7T)ISETQ UL (CAR U1})) 
CT (RETURN NILDDD 
AlO ={SETQ S (CODR LD) 
A2  (CONOUC (MEMBER U7(VBLES(CADR U1)))(GO AZAD) 
CUMEMBER U7 (VBLES(CADOR UL)))(GO AZB))) 
(RETURN NIL) 
AZA(COND(( MEMBER U7 (VBLES(CADOR UL)DO (RETURN NILDD) 
{GO A3) 
AZ2B {SETQ UL (CONSICAR ULD(CONS(CADDR UL)D(CONS(CADR UL) NILI))) 
AZ (SETQ U2 (PUTN2 NIL (CONS{QUOTE EXISTI(CONS U7 
{CONS Ul NIL}D) NILD) 
{COMOC( (EQUAL UZ (QUOTE DONE)I(GO AGE))) 
(SETQ U2 (SCANW L (QUOTE GEN))) 
(CONDITEQUAL U2 (QUOTE NEXT)}(GO E)) 
((EQUAL U2 (QUOTE DONE))(GQ A4))) 
(GO E2) 
A& CCONDCCNULE W1)(GO ASA)) 
CCEQUALICAAAR WLI (QUOTE VER} (RETURN U2))) 
“(60 AGE) 
ASA (COND((EQUALICAAAR W) (QUOTE VERD) (RETURN U2))) 
A6E- CCONDCINULL SIIGO E2))) 
E3 (SETQ W (MASK Z)) 
€SETQ QF2 NIL} 
({SETQ Ul (QUOTE MEMBER)) 
(SETQ U3 (PUTN2 NIL (CONS UL (CONS CX1 S)) 
_ CCADODAR UD)) 
(CONOC(NULL U3) (RETURN NIL)) 
CCMEMBER U3 {QUOTE (OGNE BG REDARETURN Uu3})) 
“(RETURN N) 
E2 (SETQ U6 (VERIFY FU)) 
(PRINT Fu) 
~ CPRINTILISTICADR FU) (QUOTE EQUALS) CX1)) 
{CONDI {EQUAL U6 (QUOTE DONE) }(RETURN U6))) 
E (SETQ W (MASK Z)) 
(SETQ QF2 NIL? 
(RETURN (QUOTE NEXT)) i. 
El (SETQ Ww (MASK Z)} 
_ CSETQ QF2 NIL) 
{RETURN NIL) 9D9D) 
COMPILE( { SOLVEX)) 
STOP)}) 
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SCNX LISP 
DEFINE (CISCNXCLAMBDA(S L UL U USP(PROG(U2 U3 U4) 
(SETQ U (GENSUBST(CDR UL)ICAR UL) U}) 
(SETQ U2 (LISTCQUOTECEQUAL Al AZ})(QUOTE(EQUAL2 AL A2)})) 
A {SETQ U3 {CAR U2)) 
(SETQ U4 (RPLCE(QUOTE{AL A2)) NILD) 
(CONO( (NULL U4)(60 B))) 
(SETQ U3 (GENSUBSTICAR U4)(CDOR U4) U3)) 
B {(SETQ US {MATCHL U3 U)) 
BL (COND({(NULL U4)(G0 C)) 
( (MEMBER L {(COAR U4))(G0 0))) 
{SETQ U4 (COR U4)) 
(GO 81) 
C (SETQ U2 [COR U2)) 
(COND( (NULL U2) (RETURN S))) 
(GO A) 
O (SETQ U3 (CDAR U4)) 
Dl (COND{(EQUALICAR U3) N}IGO D2) 
(CEQUAL(CAR U3) L)(G6O 02))) 
(GO E) 
D2 (SETQ U3 (CDR U3)) 
(GO D1) 
E (SETQ U4 (ALLVBLES(VBLESICAR U3)))) 
El (CONDCINULL U4){RETURN S)) 
(({PREEVBLE(CAR U4))(GO E2))) 
(SETQ U4 (COR U4)) 
(GO E1) 
E2 (SETQ U2 (CAR U4)) 
(SETQ U4 {CDR U5)) 
(SETQ U4 (CONSICAR U4)(CONS U2 
(SUBST(CAR U3) L (CDDR U4))))) 
(SETQ CX ND) 
(SETQ & 24) 
(SETQ US (PUTN2 NIL U4 (CADDDAR U5))) 
(SETQ CX NIL) 
{CONDE (NULL U4) (RETURN $)) 
(CEQUAL L Z4) (RETURN S))} 
(SETQ Ul (QUOTE( MEMBER Al A})) 
(SETQ U4 (RPLCE(QUOTE (Al AD) NILD)D 
(COND{ (NULL U4)(GO G))) 
(SETQ UL (GENSUBST(CAR U4)(COR U4) ULD) 
G {SETQ US (MATCH1 U1 U)) 
G1 (CONDE (NULL U4)(60 HD) 
((MEMBER U2 (COAR U4)1(GO G2))) 
(SETQ U4 (COR U4)) 
(GO G1) 
G2 (SETQ Ul (GENSUBSTI{CDAR U4)(CAAR U4} UD) 
(SETQ U4 (GENSYM)) 
(SETQ Z3 (CONS{CONS N U4) 23)) 
(SETQ U1 (CONS N {SUBST U4 U2 UL))) 
(SETQ S (CDRIGFIND L))) 
(SETQ W (SUBST(SUBST U4 U2 S$) S WD) 
(SETQ U3 (SUBST U% U2 (CAR U3))} 
(CONDI {NULL QF29{SETQ QF2 (CONS U4 U3)}) 
(TOSETQ QF2 (CONS U4 (SUBST U3 {CAR QF2)(COR OF2))9})) 
(60 #1) 
H (CONDC(NULL QF2)(SETQ QF2 {CONS U2 (CAR U3)))) 
(TUSETQ QF2 (CONS U2 {SUBST(CAR U3) (CAR QFZ)(COR QF2)))))) 
(SETQ Ul ND 
Hl (SETQ L (ROFW LD) 
HLA (CONDCINULL L) (RETURN U1))) 
(SETQ S (SLVX(CDAR L))) 
(COND( (EQ S NJ(RETURN (QUOTE DONE)})) 
(SETQ L (COR L)) 
(GO HLA) 
yoo STOP)))) 
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SLVX LIse 
DEF ENE CC ESLYXCLAMBOACU) (PROGCUL U2) 
(CONDC(NULL QF2){GO Al)}) 
(SETQ CXL (SOLVXPICDADDR U}{CAR QF2))) 
(CONDCUNULL CX1)(GO Al))) 
(SETQ CXL (SUBST CXL (CAR QF2)(COR QF2))) 
(RETURN N} 
Al (SETQ CX1 (SOLVXP(CDADDR U){CAOR U))?) 
(COND((NOTCNULL CX1LIPCRETURN ND) 
(SETG Ul (CADOR UD) 
CSETQ U2 (GMATCH{CADR ULI(CADDR UL))) 
CCOND( (NULL U2) (RETURN NIL)) 
CONGTCEQUALICAAR U2) (CADR U))) (RETURN NIL?) 
(CNULL QF2)(SETQ CX1 (CADR U2))) 
(T (SETQ CX1 (SUBSTICADR U2)(CAR QF2}(COR QF2))))) 
(RETURN N) 3999) 
DEFINE (CC CSOLVXP(LAMBDA(U3 UD(PROG(UL P PP) 
(SETQ P (QUOTE #PROD)) 
CSETQ PP (QUOTE #INVERSE)) 
A {SETQ Ul (CAR U3)) 
(CONO(CATOM U1)(GO Al)? 
(CEQUAL(CAR U1) P)(GO B1)) 
(CEQUAL(CAR U1) PP){(GO C1))) 
(RETURN NIL) 
Al (COND(CEQUAL UL UD CRETURNICADR U3}))) 
(RETURN NIL) 
Bl (COND(( MEMBER U (VBLES(CADR UL}})(GO B2)))} 
(SETQ UZ (LISTI{CADOR ULIILEST P (LIST PP (CADR U1) 
(CADDOR ULII(CADR U3)(CADDOR U1))}) 
{GO A) 
B2 (COND( (MEMBER U (VBLES(CADDR U1))) (RETURN NIL))) 


(SETQ UZ (LISTI(CADR ULN(LIST P (CADR U3)(LIST PP (CADOR U1) 


(CAOODR U1L))I(CADODR U1)))} 


(GO A) 
Cl (SETQ UZ (LISTICADR ULIILIST PP (CADR U3Z)(CADDR U1)))) 
(GO A) 9)})) 
COMPILE((SOLVXP)) STOPIDIDD) 
HOMOMF cise 


DEFINE (( (HOMOMF(LAMBDA(L) (PROG(U3 U4) 
(SETQ U3 724) 
(SETQ U4 (PUTN2 NIL {CADR L) NIL)) 
(SETQ U4 (SCANW NIL{QUOTE GEN))) 
(SETQ QF1 (ONLY(ROFW US)(QUOTEC(REL RELI)))) 
(SETQ W (MASK U3)) 
(SETQ U3 24) 
(SETQ U4 (PUTN2 NIL (CADDR L) NIL)D) 


(COND((NOTCEQUAL U4 (QUOTE DONE))D)(SETQ US (SCANW NIL (QUOTE GEN))))) 


CSETQ QFL NIL) 
(SETQ W (MASK U3)) 
(COND( (EQUAL U4 (QUOTE DONEDI{SETQ US (VERIFY L999) 
(RETURN U4) 9)})) 
OEFINE(C((ONLY(LAMBDA(U L) 
(CONDO (NULL UP) NIL CCMEMBER(CAAAR U) LI CCONS(CAR U) 
CONLY(CDR UP L)DICT CONLY({CDR UP LdD) 999) 
STOP}))) 
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00010 
00020 
00030 
00040 
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00090 
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00160 
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GENFCN tise 
DEF INE( ( (GENFCN(LAMBOA(L}(PROG(U UL U2 U3 U4 U5 U6 S$} 
(SETQ U4 (CONSIGENSYM)(GENSYM))) 
USETQ 23 (CONS{CONS N (CAR U4)) 23) 
(SETQ Z2 (CONS(CONS(QUOTE RESI(COR U4)) 223) 
(COND(TEQUALICAR LI(CAOR L))(GO E))) 
(SETQ U6 {(CADR L)) 
Al (SETQ U3 24) 
(SETQ U (GENSYM)) 
(SETQ Z3 (CONS(CONS(QUOTE GEN) U) 23)) 


(SETQ UL (PUTONI(CONS Z4A Z4B)(LIST(QUOTE MEMBER) U U6)}) 


(SETG UL CPYTN2 NIL (LIST(QUOTE OUMMY) U) NICD) 
(SETQ Ul (SCANW N (QUOTE GEN))) 
(SETQ U1 (COR(ROFW U3))) 
(SETQ W (MASK U3)) 
. CSETQ UZ (MEMOF] VVL (QUOTE MEMBER})) 
(CONOC(NULE SI(SETQ U2 (CONS(LEST U6 U UD NILDDID 
A2  (COND( (NULL U12(GO 02))} 
(SETQ U (GENVBLE(COAR U1})) 
(CONO({NULL UI(GO D3))) 
(SETQ US U3) 
AS. (CONDI(NULL U5)(GO 03)) 
CCEQUAL U (CAAR U5)}(GO A6))) 
(SETQ US (COR U5)) 
(GO A5) 
AG (CONDU(NULL S){GO S2))) 
(SETQ US (CADAR U5)) 
({SETQ U6 U2) ; 
AT (COND((NULE U6)(G0 A8)) 
{(EQUAL US (CAAR U6)}(GO DDD) 
(SETQ U6 (COR U6)) 
(GO a7) 
S2  {COND(CEQUAL(CAR LI(CADAR U5))(GO C))) 
(SETQ U2 (APPEND U2 (CONS{LISTICADAR U5) U 
2 (CADDAR UL)) NIL})) 
{GO a8) 
03 {CONDC(NULL S}(SETQ U2 (APPEND U2 {LIST(LIST NDDD))) 
AB (SETQ UL (COR UL)) 
(GO A2) 
D2 (CONDI (EQ S NICRETURN NILDD) 
(SETQ SN) 
(SETQ U6 (CAR LD) 
(60 Al) 

C (SETQ U6 (SUBSTICAR U4) U {CADDAR U1L)}) 

CL (CRETURNEILISTIQUOTE IMPLIES}(LIST(QUOTE MEMBER) 
(CAR USV(CAR LODILIST(QUOTE EQUALIILISTI(COR U4) 
(CAR LI(CADR LO{CAR U4)) U6))) 

D  (RETURNILISTIQUOTE EQUALPILISTICOR US)(CAR L) 
(CAOR LITSUBSTICAR U4) U {CADDAR UL)D}) 
CSUBSTICAR US)(CADAR U6)(CADDAR U6))}) 

E (SETQ U6 (CAR U4)) 

(GO CL) 
vod)? STOP))))D) 
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WLOFN cise 
DEFINE( ((COMPOSITION(LAMBDA(U VB) {PROG(UL) 
A {COND(TATOM UDCRETURN NILD) 
COON(CAR UD Z2)0SETE Ul (CONS(LEISTICAR | ud (CAR vu} 
(CAOOR UI) U1)? 
(T CRETURN NILD}) 
{SETQ U (CADDOR U)) 
(COND( (EQUAL U VBICRETURN UL))) 
(GO Ad 2920) 
DEFINE (( (WLOFN(LAMBDA( EQN) (PROG(U1 U2) 
CPRINT(QUOTE{ MUST PROVE RELATION WELL DEFINED) )} 
(PRINT(QUOTE(IS INVERSE RELATION ONE TO ONE))) 
(SETQ UL (GENSYM)) 
(SETQ U2 (CDAR EQN)) 
(SETQ 22 (CONS(CONS(QUOTE RES) Ul} 22)) 
(SETQ Ul (MONOMFILIST(QUOTE EQUALJ(LIST UL (CAOR U2) 
(CAR UZ2)(CAOR EQN)D(CADOR U2}) NILDD 
CCONDC (NULL ULPCRETURN NIL))) 
(SETQ 26 NIL) 
CSETQ LON NILI 
(SETQ Wl NIL) 
(SETQ W NIL) 
(RETURN TD 333)) 
DEF INEC CC WLOFNL(LAMBDA(US US U6 UT)I(PROG(FY S Ul U2 U3) 
(SETQ UL (CONS(GENSYM) (GENSYM))} 
“CSETQ 23 (CONS(CONS(QUOTE RES)(CAR U1) )(CONS{CONS{QUOTE RES) 
(COR ULd) Z39P 
(SETQ U3 (GENVBLE U4)) 
CO (CONOC (ATOM U5)(GO C1)) 
CCEQUALICAR US)(QUOTE eLCOSETI) (GO C4))) 
Cl = (SETQ U2 (LESTIQUOTE EQUALI(LISTIQUOTE #PROOI(LIST(QUOTE # INVERSE) 
(SUBSTICAR UL) U3 USDICADR U6))(SUBST(COR U1) U3 U5) 
“(CADR US)ICLIST(QUOTE #IDENTITY)(CADR U6)))) 
C2 (CONOCINULL $9160 C3)) 
CONULL QM5)9(GO C2A))) 
(SETQ FV (LIST(QUOTE MEMBER) U3 (GENSET U3 U7))) 
(CSETQ FY (PUTONLICONS Z24A Z4B)(LIST(QUOTE AND) (SUBST(CAR Ul) U3 FV) 
“CSUBST(COR UL) U3 FYDD)) 
CSETQ 248 (ADO1 248)) 
C2A (SETQ FV (SOLVE(LIST(QUOTE IMPLIES)U2 S})} 
(CONDC(NULL FVDC(RETURN NILD)) 
(RETURN N) 
C3. €SETQ S U2) 
(SETQ US U4) 
(SETQ U6 (COR U6)) 
«60 CO) 
C& (SETQ U2 (LIST(QUOTE MEMBERD(LIST(QUOTE *#PROO)(LIST 
* (QUOTE SINVERSE)(SUBSTICAR UL) U3 (CADR US) )(CADODR U5)) 
(SUBST(COR UL) UZ (CADR U5))(CADDOR US))(CADDR U5})) 


(60 C2) 
yoo? STOP))>990) 
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DEFINE( ((MONOMF(LAMBDA(EQN S)(PROG(UL U2 U3 U4 U5 U6 UT FV) 
(SETQ U6 (CADR EQN)) 
({CONOC(FREEVBLE(CADDDR U6))1GO B))) 


MONOMF 


Al (SETQ U2 (CONS Z4A 24)) 
(SETQ Fv (CONS V¥1 vv¥2)) 
(SETQ U4 (GENSYM}) 
({SETQ 23 (CONS{CONS{QUOTE GEN) U4) 23)) 


CSETQ U3 (PUTONLICONS Z4A Z4B) (LISTCQUOTE MEMBER?! U4 (CADR U6)))) 
(SETQ U3 (PUTN2 NIL (LIST(QUOTE DUMMY) (SUBST U4 


({CADDDR U6) U6)) NILD) 


(SETQ U3 (SCANW N (QUOTE GEN))) 


(SETQ U3 24) 
(SETQ VV1 NILICSETQ Vv¥2 NIL) 
(SETQ U4 (PUTON] (CONS Z4A 248) EQN)? 


(SETQ US (SCANW NIL (QUOTE GEND)) 

(SETQ U4 (GFIND U3}} 

(COND{ (NULL U4) (RETURN NIL))) 

(SETQ U5 (CADORICOADDRIGFIND(CAADAR U4))))) 
(SETQ U4 (CADOR U4)) 


{SETQ 26 NIL) 
(SETQ LON NIL) 
(SETQ Wl NIL) 
(SETQ W NIL) 
({SETQ 24 (COR U2))(SETQ 24A (CAR U2)) 
(SETQ VV1L (CAR FV)D{SETQ vv2 {COR Fv)) 
{SETQ U7 QM2} 


(SETQ QM2 FQM2Z)(SETQ QM3 FQM3)(SETQ QM4 FQM4) (SETQ QM6 NIL) 
{CONDC (NULL SI(RETURNCWLOFN) U4 US U6 UT))) 

(CATOM U41(60 A2)) 

CCEQUALICAR U4) (QUOTE *#LCOSET))(GO A6))) 


AZ (SETQ Ul {GENVBLE U4)) 
{CONDC(NULL U1)(GO AS))) 


ASETQ U3 (SOLVXP(LIST U4 (LIST(QUOTE *#IOENTITY) 
{CAODR U6))) U1LD) 


CCONDC(NULE U3)(GO A8})) 


(SETQ FV (PUTONI(CONS Z4A Z4B){(LIST(QUGTE EQUAL) Ul U3))) 


(60. 0) 


AG (SETQ FY (PUTONL(CONS Z4A 248) (LIST( QUOTE MEMBER) 


{CADR U4) (CADDR U4))})} 


CSETQ Ul (GENVBLE U4)) 


AB {SETQ FV (PUTONLICONS Z24A Z4B) (LISTCQUOTE EQUAL) U4 


LIse 


(LISTCQUOTE sIDENTITYI(CADDOR U6))))) 


O (SETG 248 (A0D1 7248)) 


(COND( {NULL Q85)(60 00)) 


(NULL U22(G60 00))) 
CSETQ FY (PUTGNLICONS 24A Z4B)1LEST(QUOTE MEMBER) U2 AGENSET UL U7)))) 
(SETQ 248 (ADD1 248)) 


DO (SETQ FY (SOLVE{LIST(CQUOTE EQUAL) U5 
(LIST(CQUOGTE # IDENTITY) (CADR U6))))) 


(CONOCINULL FV) (RETURN NILI)) 


{RETURN N} 


6B (SETQ UL (COMPOSITION(CADDR EQN) (CADODR U6))) 


(COND( (NULL U1){GO-Al))) 


61 (CONDI TON(LISTIQUOTE ONEONED(CAR U1)) VV¥LPCSETQ U1 (CDR UL)}) 


{T (GO Al)))} 
CCONOC(NULL U1){(GO 682))) 


{6O Bl} 


62 (PRINT(QUOTEC FUNCTION IS A COMPOSITION OF MONOMORPHISNS))) 


(RETURN N) 


yo0)) 


STOPD)IDDD) 
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Peres ea 


VERIFY LEsp 

DEFINEC((VERIFY(LAMBOA(U) 

(PROG(UL U2 U3 U4 US U6 U7 TT NN G) 

CSETQ G (QUOTE A)? 
AQ (€SETQ U2 wl) 
Al (CONDC (NULL U2)(GO A2)) 
(CEQUAL G (QUOTE A)}(GO ALAD) 
CCEQUALICAR U6) (CADDDAAR U2))(GO A3})} 

A1B (SETQ UL (APPEND Ul (CONS(CAR U2) NILD)) 

(SETQ U2 (COR U2)) 
(GO Al) 
A1A (COND(CEQUAL U (CDAR U2))(GO A311) 
(GO AlB) 
AZ (SETQ U3 (CAAAR U2)) 
(CONO( (MEMBER U3 (QUOTE{VER VERA2 IRR))) (GO A6)} 
(CEQUAL G (QUOTE A}}(GO A3C)) 
(CEQUAL G (QUOTE B2)(GO A30D)) 
CCONLYMEMB(COR U6)(CADAAR U21)(GO A3C1))) 
A3C3  (SETQ U7 (DELTFICOR U6) (CADAAR U2))) 
(SETQ U3 (CONS U3 (CONS U7 (CDODAAR U2)))) 
AZE (SETQ U2 (CONS{CONS U3 (CDAR U2) }(CDR U2))) 
A9B (CONDC (NULL TT)(SETQ Wi (APPEND UL U2))) 
(T CSETQ W CAPPEND UL U2)))) 
(GO. AT) 

A30 (COND((MEMBER(COR U6) (CADDAAR U2))(G0 A3C))) 
(SETQ UT (DELPRICOR U6){CAODAAR U2))) 

(SETQ U3 ICONS U3 (CONS{CADAAR U2){CONS U7(CORICDDAAR U2)))))) 
(GO A3E) 

A3C2 (CONDI MEMBER( QUOTE HEADD(CADAAR U2}}(GO A3C3))) 
{GO A3C) 

A3C1l (CONDI (EQUAL U3 (QUOTE A2)){GO A3C2))) 

A3C = (SETQ U3 (CAR U2)) 

(SETQ U2 (COR U2)) 
(CONDI (C EQUAL G (QUOTE C)1(60 AFI) 
((CEQUAL G (QUOTE ADI(SETQ U6 (CONSICADDDAR U3) NIL))}) 
(SETQ US. (MIRGEACTACK(CADAR U3)D(CAR U6)} U4)) 
(SETQ US (MIRGEALTACKICAODAR U3)(CAR U6)) USD) 
(CONDI TEQUALICAAR UZP(QUOTE AZ))(60 A4)) 
((EQUALICAAR U3) (QUOTE PNT))(SETQ NN (QUOTE NEXT)))) 
(SETQ U3 (CONS(CONS(QUOTE VERID(COAR U3)) (COR U3))) 
A3A  (SETQ U2 (CONS U3 U2)) 
(GO A9B) 

A3F (SETQ US (MIRGEACTACK(CADDAR U3)(CAR U6)) U5)) 
(CONDI (EQUALI(CAAR U3) (QUOTE PNT) (SETQ NN (QUOTE NEXT)))) 
(SETQ U3 (CONS(CONS(QUOTE IRR}(COAR U3)) (CONS N (CDR U3)))) 
(GO A3A) 

A& (SETQ U3 {CONS(CONS{(QUOTE VERAZ)(CDAR U3)) (COR U3})) 
(GO A3A) 

A2 {(COND(C( NULL TT)(GO A2A))) 
(GO A7) 

A2A (SETQ TT N) 
(SETQ Ul NIL) 
(SETQ U2 WwW) 
(GO Al} 

AG (COND (EQUAL G {QUOTE A}) (RETURN NIL)D) 

AT (COND( (EQUAL G (QUOTE C))(GO A7A))) 
(SETQ G (QUOTE B)) 

(CCOND( {NULL U4)(GO ATA))) 
(SETQ U6 (CAR U4)) 
(SETQ US (COR U4)) 
A7B (SETQ TT NIL) 
(SETQ Ul NIL) 
(GO AQ) 
ATA (COND((NULL U5)(GO C1))) 
(SETQ U6 (CAR U5)) 
(SETQ US {CDR U5)) 
(SETQ G (QUOTE C)) 
{GO A7B) 

CL (CONOCENULL WLIIGO.C2)) 

CCEQUALICAAAR WEN(QUOTE VER) I (RETURN(QUOTE DONE}))) 
(RETURN NN) 

C2 (CONDI TEQUAL(CAAAR WI(QUOTE VERI)CRETURN(QUOTE OONE)))) 
(RETURN NND 1909) 

COMPILE((VERIFY)) 

STOP) 
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INVA LIsPe 
DEFINECECINVM(LAMBOALU U2} (PROG(UL U4 US LL? 
(SETQ LL Q) 
(CONO({MEMBERICAR UI(QUOTEC IMPLIES FEQUAL EXISTSI}) 
{RETURN NIL}? 


CCNOTCANDTMEMBER( QUOTE *#PROD) U2) (MEMBER( QUOTE *INVERSE) U2))) 


(RETURNCINVM2 U U5 U2)))) 

B4 (CONOCE{NULL LLICRETURNCINVM2 U US U2)))) 
CSETQ UL (PMATCHICAR LL) UD) 

BS (CONODC( (MULE U1)(GO B1})) 
(SETQ US CINVSUBLPRODARGSI(CDAR U1)))) 
(CONDCUINULL U4)1GO 82))) 
(SETQ U CINVREDO(CDAR UL) U4 U {CAR LLDD) 
CSETQ U5 Ud 

62 (SETQ Ul (COR UII) 
(GO 83) 

61 (SETQ LL {CDR LLD) 
(GO 84) ))))) 

OEFINEC CC ENVM2(LAMBDA(U U5 U6) (PROG{UL U2 U3 U4 $1) 
{CONDC (NULL USI CSETQ S21 N))) 

(COND( (MEMBER(QUOTE #INVERSE) U6)(GO EL))} 
(SETQ UL (LIST NIL NILD) 
(SETQ U2 (LIST NIL) 
(SeTQ U3 (LIST NIL)) 


(COND( (ANDI MEMBER (QUOTE #PROD) U6G)IMEMBER(QUOTE *#ICENTITY) U6)) 


(SETQ US (LIST N ND)? 
(1 (SETQ U4 (LIST NIU NILDDD) 
(60 €9) 
El -(SETQ U2 (LIST ND) 

(COND((MEMBER(QUOTE ©PROD) U6)(G0 E2))) 

(SETQ UL {LIST NIL NIL) 

(SETQ US (LIST NEIL NIL)) 

(CONDU(MEMBER(QUOTE *# IDENTITY) U6)(SETQ U3 (LEST ND)? 
(T (SETQ U3 CLEIST NIL)}D) 

(60 £9} 

E2 (SETQ UL (LIST NN}) 

(COND((MEMBER(QUOTE *IDENTITY) U6)(GO E399) 

(SETQ U3 (LIST NILD) 

(SETQ US (LIST NIL NID) 

(GO £9) 

E3 (SETQ U3 (LIST ND) 

(SETQ US (LIST N ND? 

E9 (SETQ U3 (SIFTCAPPEND U1 (APPEND U2 (APPEND U3 U6))))) 
A ACONDC (NULL U32(G0 D))) 

{SETQ U2 (CAAR U3)? 

(SETQ US (CADAR U3)) 

(SETQ Ul (RPLCECQUOTECAL AD) NIL)? 

(COND{{NULL UL)(GO B))) | 

(SETQ U2 (GENSUBSTICAR UL}SCOR U1) U2)) 

(SETQ US (GENSUBSTICAR ULD{COR U1) U5)) 

& . CSETQ UL (MATCHL U2 U)) 

(CCONDCINULL U1)(GO0 CP) 

(SETQ S21 NIL) 

(SETQ U (RPTSUB US U2 U UL)? 

C (SETQ U3 (CDR U3)) 

160 A) 

DO (COND(CNULL SLICRETURN U))) 

(RETURN NEL) 2290) 

DEFINE(((SIFT(LAMBOA(U) (PROG(UL U2) 

(SETQ UL (QUOTE C(®PROOD Al (*INVERSE Al A) AD 
(®IDENTITY AD) ((*PROD(SINVERSE Al A) Al A) 
COIDENTITY AD) CC@INVERSEC@INVERSE Al A} A) AL) 
CCOINVERSEC@IDENTITY A) AD(SIDENTITY AD) 
((#PROD Al (#IDENTITY A) A) Al) 

({*PROD (eIOENTITY A) AL AD ALDD)) 
A (CONDUC NULL UD (RETURN U2)) 
(CEQUAL(CAR UP NDCSETQ U2 (CONSICAR U1)U2)))) 

(SETQ U (COR U)) 

(SETQ Ul (COR UL) 

(GO A) 9200) 

COMPILE ( CINVM}) 
STOPD)}) 
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MODEL Lise 
DEFINE({ ( (MODELMAKE{LAMBDA(U} (PROG(UL U2 U3) 
{SETQ UL QM1) 
AO (CONDCINULL ULDIRETURN NIL} 
CUEQUALICAR UD(CAAAR UL))(GO AlD)) 
€SETQ Ul (COR U1)? 
(GO AQ) 
Al (SETQ Ul (CAR UL?) 
(SETQ UZ (RPLCECALLVBLES(VBLES(CDAR U1L))) (ALLVBLES(VBLES(COR U))))) 
CCONOC (NULL U2)(GO A1B})) 
(SETQ UL (GENSUBSTI{CAR U2)(CDR U2) Ul)) 
AlB (SETQ U1 (GENSUBSTICOR UPI(CDAR ULDICOR UL))) 
(SETQ U2 (CAR U1)) 
A2 (CONDI (NULL U22(GO A3))) 
(SETQ U3 (ALLVBLES(CAR U2}}) 
(SETQ U QM3) 
(SETQ QM3 NIL? 
A2A (COND((NULL U}(GO A2C)} 
CONULLOMEET(CAR UP U3))0SETQ QM3 (CONSICAR U) QM3))) 
{T (GO A2B))) 
A2ZAL (SETQ U {CDR Ud) 
(GO A2A) 
A2B {(SETQ U3 (ALLVBLES(APPENDICAR U) U3))) 
{GO A2Al) 
A2C (SETQ QM3 (CONS U2 QM3)) 
({SETQ U2 (COR U2)) 
(GO A2) 
AZ (SETQ Ul (COR U1)) 
A3ZA (COND( (NULL ULDCRETURN NEL)) 
CCEQUAL(CAAR U1) (CADAR U1})(GO A3B)}) 
(CSETQ QM4 (SWMEMBICAR U1) (CONS(CADAR U1) (CONS(CAAR U1) NIL}) QM4)) 
A3B {SETQ UL FCDR UL}) 
(GO AZA) DPDDIL 
DEFINE ( ( (CHECKMODEL (LAMBOA(U) (PROG(U] U2 U3) 
(SETQ UL QM2) 
AO (CONOC{NULL U1)(GO Ald) 
CCEQUAL(CAAR ULI{CAR UDDCSETQ U2 (CONS{CADAR U1) U2)))) 
(SETQ Ul (COR UL)) 
(GO AQ) 
Al (CCONOC (NULL U2Z}(RETURN T))) 
(SETQ UL QM3) 
ALA (CONDQ(NULL ULI{RETURN T)) 
COMEMBER(CADR UP ECAR U1)}(GO A2})) 
{SETQ U1 {COR UL)? 
(GO ALA) 
A2 (SETQ UL (CAR U1)) 
(SETQ UZ U2) 
AZA (CCONDCINULL U2) (RETURN NIL)? 
COMEMBER(CAR U2) U1)(GO A3))) 
{SETQ U2 (COR U2)) 
{60 A2A) 
AZ (SETQ Ul QM4) 
(SETQ U2 NIL) 
A3A (CONDI INULL U1)(GO A4)) 
CCEQUAL(CAAR ULI(CADR UDI (SETQ U2 ICONS(CADAR U1) U2)))) 
(SETQ Ul (COR U1)) 
{GO A3A) 
A& (CONDC(NULL U2) (RETURN T))) 
AGA (COND( (NULL U3) (RETURN NIL)) 
CCMEMBER(CAR U3) U2){SETQ U3 {CDR U3))) 
{7 (RETURN 1))) 
(GO AGA) 9DDD) 
DEFINE( C(MEET(LAMBDA(U1 U2) 
(CONDE CNULL UL) NIL) C(MEMBER(CAR UL) U2) (CONSICAR UL) (MEET 
(COR U1) UZ)DIDCT (MEETI{COR UL) U2))) 22D) 
DEFINE(( (SWMEMBILAMBDA(UL U2 L) 
CCONDCCNULL LI(CONS U1 NILDDC (EQUAL UL (CAR LD) Ld 


(CCEQUAL U2 (CAR LIDICOR L)21T {CONSICAR LICSWHEMB UL UZ2(COR £)))90)00) 


DEFINES ( (NOWWHICH( LAMBOA{U) (PROG(UL) 
(SETQ U1 {CDADR U)) 
(CONDUC (MEMBER U1 QM6) {RETURN UD) 
C{MEMBER Ul QM2)(GO A)) 
CONULL (CHECKMODEL UL) (RETURN U))) 
A (RETURN(LISTICAR UN(CADOR UD(CADR U)D)) 2909) 
DEFINE( C(GENSET(LAMBDA(U L)(PROG() 
A (CONDC(NULL L)(GO BD) 
(CEQUALICAAR L}) UD TRETURNICADAR L)})) 
(SETQ L (COR t)) 
(GO A) 
B (PRINT(QUOTE(GENSET IS RETURNING NONSENSE)D)) 
CRETURN( QUOTE XX)) 990) 
STOP)»)) 
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GTFRM LISP 
DEFINE( ((GTFRM(LAMBDA(U L Z LN) 
{PROG(U1 UZ U3 U4 S) 
A {(COND((EQUAL L (QUOTE Y)I(SETO U4 Y)) 
~  {UEQUAL L (QUOTE X)2ESETQ US X)) 
“(T (SETQ U& XXD)) 
Al (COND((NULL U4){GO AZ2)) 
CCEQUALICAAAR US)(CAR UPD (GO ALDH)? 
(SETQ U4 (COR U4)) 
(GO Al) 
ALL (COND((NULL(COAR U4))(GO A1B))) 
(SETQ Ul {CDAAR U4)) 
~(SETQ U2 (CDAR U4?) 
(SETQ U3 (ALLVBLES(VBLES U2))) 
(SETQ U3 (RPLCEF U3 (ALLVBLES(VBLES{CDR U)}))) 
(CONDE {NULL U3)(GO ALA))) 
(SETQ U2 (GENSUBSTICAR U3){COR U3) U2)) 
{SETQ Ul (GENSUBST(CAR U3)(COR U3) U1)) 
ALA (SETQ U2 (GENSUBST(CDR U) Ul U2)) 
(CONDI TOR(EQUAL L (QUOTE X))(EQUAL S N)) (RETURN 
(PUTN2 NIL U2 Z))) 
(LEQUAL L (QUOTE XX)9(GO BD) 
(T (RETURN(PUTONLICONS 744 LN) U2)))) 
ALB (COND(TEQUAL L (QUOTE X)}(SETQ S NI} 
(T (RETURN NILDD) 
(SETQ L (QUOTE Y)) 
{60 A) 
AZ (COND( (EQUAL kL (QUOTE X))(PRINT(QUOTE 
(CAN YOU GIVE ME A SUFFICIENT CONDITION FOR)})) 
(T (PRINTIQUOTE (CAN YOU GIVE ME A DEFINITION OF))))) 
(PRINT(CAR UP) 
(SETQ Ul (ROFLX())) 
(COND(CEQUAL Ul (QUOTE NODI(SETG U1 (CONS{CONS(CAR U) 
NIL) NELDDD) 
{COND((EQUAL LI QUOTE Y)}(SETQ Y (CONS U1 Y))) 
(CEQUAL L(QUOTE XFIC(SETQ X (CONS Ul X))} 
(T (SETQ XXCCONS UL XX}D)) 
(SETQ U4 (CONS Ul NIL}) 
(GO ALL) 
8 (CONDE{NOTCON U2 LND}CSETQ LN (APPEND LN 
{CONS(CONS N UZ) NELDID)) 
(RETURN LN) 
Y)02) STOPIOD) 
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00010 
00020 
00030 
0004¢C 
00050 
00060 
00070 
co0s0 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
0027¢ 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
06350 
00360 
00370 
00380 
00390 
004Cc0 
00410 
00420 


MATCH ' 


(SETQ U3 (CARCGFIND 4))) 
(SETQ US CAPPENDM(CADOR U3) Z))} 
(CONDI (NULL USP CRETURN NILD)) 


(SETG US {CONSICAR UZP(CONS(CADR UZ)(CONS US (CDODR U3))))) 
(COND((OR(NULL WITLESSP M (CADDDAAR WI?) 


(SETQ Wl (SUBST U4 U3 WL))) 
(T (SETQ W CSUBST U4 U3 WI))) 
(RETURN NIL) DDD) 
DEFINE( (LC APPENDMC(LAMBOA(L Z) 


(COND( (MEMBER ZL) NIL) (T {CONS Z LIDD 990) 
DEFINE ( (CADDANTEC(LAMBDA(M UI (PROG(U3 Ue U5) 


(SETQ U3 (CARIGFIND UD)) 


LISP 
OEFINE( ( CADOCONSCILAMBDA(Z MIC PROG(U3 U4 U5) 


({CONOCIGMEMB M (CADDR U3)) (RETURN NIL)) 
TLEQUAL M (CADDDR U3))2 (RETURN NILD) 


CENULLCANDEND M (CADDR U3))) (RETURN NILD) 
COMEMBER(CAR UZ)(QUOTE(VER VERAZ))) (RETURN(QUOTE B)1)} 


A2A (SETQ U5 (APPENDMI{CAOR U3) M)) 
(COND( (NULL US) (RETURN NILDD) 


(SETQ U& (CONS(CAR U3){CONS US (CODR U3)))) 
(CONDCCOREINULL WI(LESSPICADDOR U3)(CADODAAR w))) 


(SETQ wl (SUBST U4 U3 W1I)D) 
(CT CSETQ W CSUBST U4 U3 WdDD) 
{RETURN {CADDOR U3)) 3999) 
OEFINE( ( (ANOARGS(LAMBOA(U) (PROG() 


(COND((EQUALICAADR UD(QUOTE AND))(GO Al)) 
CCEQUAL(CAADOR U)(QUOTE ANDID(GO A2))) 


(RETURNICOR U)) 


Al (CONDCLEQUAL(CAADOR UD(QUOTE ANOI)(GO A3D)) 
CRETURNCAPPENO(COR U){ANDARGS(CADR U)))) 
AZ (RETURN(APPENDICOR UD (ANDARGS(CADOR U}9)) 
A3 (CRETURN(APPEND(COR U)(APPENO(ANDARGSICADR U))CANDARGS(CADOR UDD})) 2} 


ypd) 

DEFINE( ( CON2ZAVER(LAMBDA(U) (PRUG(UL) 
CSETQ UL (GFINOD UD) 
(CONDC (NULL U1) (RETURN NILD) 


CCEQUAL(CAAR ULI(QUOTE VERAZ}) (RETURNICADAR ULd)»D?) 


(RETURN NIL) 3)00) 


OEFINEC (CC MATCHLILAMBDAC(U LIC PROG(UL U2) 


(CCONOC(NULE LICRETURN NIL)? 
CCATOM(CAR LDD{GO A299) 
(SETQ UL (MATCH1 U (CAR LOD) 


(CONDC(NULL UL) CRETURN(MATCHL U (CDR L)90)) 


(SETQ U2 (MATCH1 U (CDR LD) 
(CCONDC(MULL U2) (RETURN U1))) 
(RETURN (APPEND UL. U2)) 

A2 CCOND(CATOM U}(GO A5)} 
COFREEVBLE(CAR U)}(GO Al)) 

(CEQUALICAR UD(CAR £92160 AS5))) 

({RETURNIMATCHL U (COR L))) 

Al (COND(COMICAR L) 2201G0 A5))) 
{RETURN(MATCH? U (CDR L))) 

AS (SETQ Ul (GMATCH U L)) 


{CONDUC NULL ULDIRETURN (MATCHL U (COR L)33)) 


(SETQ U2 (MATCHL U (COR LI)? 

{RETURN (CONS Ul U2)) 999)? 
COMPILEC((ADDCONS APPENDM ADDANTEC)) 
COMPILE((ANOARGS ON2ZAVER MATCH1)} 
DEFINE (1 (MASK (LAMBOA(Z)(PROG(U Ul U2) 

(SETQ U Ww) 
A (CONDCCNULL U)CRETURN W)) 

({EQUAL Z {CADDDAAR U)}(GO B))) 


(SETQ UL (APPEND UL (CONS{CAR U) NILDD) 


(SETQ U (COR UD) 
(GO A) 
B (CONDC(NULL U}(GO 0D) 


CUMEMBER(CAAAR U)(QUOTE(REL RELLDPD(SETQ UZCAPPEND U2 (CONS{CAR U) 


NILD)DD 


(T (CSETQ UL CAPPEND UL (CONS(CAR UD NILDDDD) 


(SETQ U (COR U)) 
(60 B) 
O (PRINT U2) 
(RETURN UL) 99DD) 
COMPILEC(MASK)) 
STOP) 
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00010 
00020 
00030 
00040 
00050 
00066 
00070 
00080 
c0090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00426 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 


GMATCH Lise 

DEFINE C (CC IMPMATCH(LAMBDACU MD(PROG(UL U2 U3 U4) 
({COND((EQUALICAR UI (QUOTE EQUAL))(GO Al}) 

CCEQUAL(CAR U) (QUOTE EQUAL21)(GO A2)) 
CCEQUALICAR UD(QUOTE EXISTS) (GO A8)) 
CTEQUALICAR U){QUOTE IMPLIES)) (GO A6)) 
CCEQUALI(CAR UD (QUOTE ANDID)(GO A3))) 
(RETURN NIL) 
Al (SETQ U2 (CONS(CADR U) NIL)) 
{GO A4) 
A2 {USETQ U2 (COR U)) 
A& (CONDC (NULL U2) (RETURN UL))) 
(SETQ UZ (CAR U2)) (SETQ U2 (COR U2)) 
({SETQ U4 (GMATCH U3 HM)? ; 
(COND((NOTINULL US) 0 0SETQ UL (APPEND UL (CONS U4 NILIDDDD) 
(CONDI (EQUAL{CAR M){QUOTE EXISTS))(GO ASD) 
COMEMBERI{CAR M)(QUOTE(EQUAL EQUAL2)))(SETQ U4 (MATCH1 U3 (CONS 
(CADR M) NILDIDICT (CSETQ U4 (MATCHL U3 (COR M)D))) 
(CONOC(NOTCNULL U4) 2 0SETQ Ul (APPEND UL U4))9) 
(GO A4) 
A3 {SETQ U2 CANOARGS U)) 
(60 A7} 
A6 (SETQ U2 (CODR Ud) 
CSETQ UL (ALLMATCHII(CAR U2) M)) 
AT (CONOC(NULL U2)(RETURN U1))) 
CSETQ U3 (CAR U2)) (SETQ U2 (COR U2) 
CSETQ Ul CAPPEND UL CIMPMATCH U3 M))) 
(GO AT) 
AB (SETQ 23 (SUBSTICONS(QUOTE RES){CADR U)) 
(CONS N (CADR Ud) 23)) 
(SETQ UL CIMPMATCHICAODR U) MD) 
{SETQ 23 (SUBSTICONS N (CAOR U}) 
(CONS(QUOTE RESDICADR U)) 239) 
(RETURN ULD 3979) 
DEFINE( ((GMATCHI(LAMBDA(U UL UZ V2)(PROG(V3 V4) 
CCONOCINULL UD{GO Al)) 
CONULL UL) (RETURN NIL) 
(CATOM U)(GO A51)) 
CCATOM(CAR U)D(GO 42)) 
(CATOMOCAR UL) (RETURN NIL))) 
(SETQ V3 (GMATCHLICAR UJ(CAR U1) U2 V2)) 
(CONDE(NULL V3) (RETURN NILD)) 
(SETQ v4 (GMATCHLICOR UI(COR UL) UZ V2)) 
(CONDE CNULL V4) (RETURN NILD)) 
CRETURNICONS(APPENDICAR V3D(CAR V4) ) (APPEND(COR V3N(COR V4)})) 

AL (CONOCE(NULL ULI {RETURNICONS U2 V2)9)) 
RETURN NIL) 

AZ (CONO[(FREEVBLE{CAR U))(GO A3)) 

CCEQUAL(CAR UDICAR UL}DD(60 A4D) 
CCAND(MEMBERICAR UP (QUOTECEQUAL2 EQUAL})) 
(MEMBER(CAR ULNIQUOTE(EQUAL2 EQUAL))))(G0 A4))) 
{RETURN NIL) 

A3  (SETQ V3 (GMATCHI (COR UI(CDR U1) U2 V2)) 
(CONDC (NULL V3) (RETURN NILD)D) . 
(RETURN( CONS (APPENDICONS(CAR UDNILDICAR V3P) CAPPENDICONS(CAR UL) 

NILD(COR V3999) 

AS (COND(CON(CAR U1} 23)(60 A5SB})) 
(RETURN NIL) 

A5B = (RETURN(CONS(CONS U U2}(CONS{CAR UL) V2))) 

AS1 (CONDC(FREEVBLE U)(GO A5)) 

(€CEQUAL U (CAR UL) (RETURNOICONS U2 V2)))) 
(RETURN NIL} 

AS (RETURN(GMATCH1 (COR UD(COR ULP UZ V2)) DDDD) 

DEFINE( ( (GMATCH(LAMBDA(U U1}(PROG(V7 V2 V3 V4 V5 V6) 
(SETQ V7 (GMATCHL U U1 (CONS N NIL) (CONS N NILDDD 
(CONDI (NULL V7) (RETURN NIL))) : 

(SETQ V2 (COR V7)) (SETQ V7 (CAR V7)) 

AL (SETQ V3 (APPEND V3 (CONS(CAR V7) NIL})) 
(SETQ V4 (APPEND V4 (CONSI(CAR V2) NILID) 

AlA (SETQ V2 (COR V2)) 

(SETQ V7 (CDR V7)) 
(CONDC(NULL V7) (RETURN (CONS V3 V4)}) 
COMEMBER(CAR V7) V39(60 A2))) 
(GO AL) 
A2 (SETQ V5 v3) 
CSETQ V6 V4) 

AZ (COND((EQUALICAR V7)(CAR V59)(GG A4&D}) 
(SETQ VS (COR V5)) (SETQ V6 (COR V6)) 
(GO a3) 

AS (CONDI (EQUALICAR V2)}(CAR V6))(6G AlADD) 
(RETURN NILD 3999) 

COMPILECCIMPMATCH GMATCH1] GMATCH)) STOP))) 
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oocic 
00020 
00030 
00040 
00050 
00060 
coc7o 
00080 
0c6c30 
006200 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
0019C 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
06280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
0046c 
00470 
00480 
00490 
ocs500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
oc7i0 
00720 
00730 
0074C 
0c750 
0Cc760 
00770 
00780 
00790 
00800 
00810 


VBLES LIse 


DEFINE ((C(VBLESCLAMBDA(U)(PROG(} 00010 
(CONDCCNULL UDTRETURN NIL}) 00020 
{CATOM UD(RETURN(VBLES(CONS U NIL)}D) 00030 
CCATOM (CAR U)D(GG ALD) 000460 
(RETURN APPEND(VBLES(CAR U))(VBLES{COR U}))) 00050 
Al {(COND(CONICAR U) 21){GO0 A2)) 00060 
(CON{CAR UD ZN)(GO A20) 00070 
(CON(CAR U) 220060 A21) oooao 
CCONCCAR UI 239160 A2))) 900090 
(RETURN (VBLES(COR U))) 00100 
A2 (RETURNICONS(CAR UD(VBLES(COR U))D) 2DDO} 00110 
DEFINE( ( (ALLVBLES ( LAMBDA(U) 00120 
(CONDCCNULL U) UDC OMEMBERICAR UD(CDR U)) CALLVBLESI{CDR ure 00130 
(T (CONS(CAR UDCALLVBLES(COR U))}D) 992) 00140 
DEFINEC ((RESRV(LAMBOACU Z) 00150 
(CONDUC(NULL Z) Z)CCMEMBERICOAR Z)} U) - 06160 
({CONS(CONS( QUOTE RES)(CDAR 23) 00170 
(RESRV U (COR Z1))) 00180 

_ (T (CONS(CAR ZI(RESRV U (CDR 29999) 990) 0019¢ 
DEFINEC(CCONILAMBDA(U 2) 00200 
{CONOC(NULL Z) NIL}CCEQUAL U (CDAR Z)) T) 00210 
(T CON U (CDR 29303 999) 00220 

DEF INE(( (CONNECTIVE (LAMBDA(U) 00230 
(COND( (MEMBER U (QUOTECIMPLIES IMPLIES2 OR DEFER 00240 
EQUAL FEQUAL EQUAL2 EXISTS AND NOT)}) T) 00250 

(T FPP DDD 00260 
DEFINEC({TERMS(LAMBDA{U L)(PROG() 00270 
(CONOC (NULL UI(RETURN NIL) . 00280 
CCATOM(CAR U))(GO AL))) 00290 
(RETURN CAPPEND(TERMS(CAR U) LI CTERMS(COR U) LdD) 00300 
Al (COND((CONNECTIVE(CAR U))(GO A2}) 00310 
(CEQUAL(CAR U)(QUOTE ASSOC)}(GO A2)) 00320 
CONUMBERP(CAR UD)(GO A2)) 00330 
((MEMBER(CAR U) L)(GO A2))) 00340 
{RETURN(CONS U (TERMS(COR U) LID) 00350 
A2 (RETURN (TERMS {COR UD L)) 1990) 00360 
DEFINE( ((GENSUBST(LAMBDA(L M U)D{PROGI) 00370 
{CONDCINULL LI(RETURN U)) 00360 
CCATOMICAR L)){GO AD) 00390 
CCON(CAAR L) 229060 B))) 00400 

C (RETURN(SUBSTI(CAR LO(CAR MP (GENSUBST(COR LI{COR M) UD)? 00410 
; A (COND(CEQUALICAR L){CAR M))(RETURNIGENSUBST(CDR L) 00420 
(COR M) U)D)? 00430 

(60 ©) 00440 

B (CONDICATOMICAR MI)(GO C)) 00450 
{(CON(CAAR M) Z2}(RETURN(GENSUBSTICAR L) 00460 
(CAR MI{GENSUBSTCCOR LO(COR M) U)D))) 00470 

(Go C) ddOD) 00480 
COMPILE((VBLES ALLVBLES RESRV ON)? 00490 
COMPILEC(CGNNECTIVE TERMS GENSUBST)) 00500 
DEF INE( ((SUPXECILAMBDA(U6 U)(PROG(SUP RET UL) 00510 
A (CONDEC(NULL U6){RETURN RET))) 00520 
(SETQ SUP NIL) 00530 

; (SETQ RET (CONS(SUPSUB U6 UW) RET)? 00540 
B (CONDICNULL U6)(GO B1)) 00550 
CUNOTCMEMBERICOAR U6) SUPII(SETQ Ul (CONSI(CAR U6) U1)))) 00560 
(SETQ U6 {CDR U6)) 00570 
(GO 6) ; 00580 
Bl (SETQ U6 U1? 00590 
(SETQ Ul NIL) 00600 
(Go AD DDD) 00610 
DEFINE( ((CSUPSUB(LAMBDA{U6 U) (PROG(U3) 00620 
(SETQ U3 U6) 00630 
Al (COND( (NULL U3){GO B1)) - 00640 
(CEQUAL(COAR U3) Ud(GO 62)) 00650 

(T (SETQ U3 (COR U3)))) 00660 

(GO Al) ; 00670 
Bil {CONDI (ATOM UI(RETURN U)}) 00680 
CRETURN(CONS(SUPSUB U6 (CAR U))(SUPSUB U6 {COR U)))) 00690 
B2 (SETQ SUP (CONS{CDAR U3) SUPI) 00700 
(RETURN (CAAR U3)) 3299) 00710 
STOP))}) 00720 
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ROFV 


DEFINES ((NOLOGK (LAMBDA(M) 
CCOND( (MEMBER (CAAR(GFIND M))(QUOTE{VER IRR VERA2 NILL})) 


TACT FO) 990) 


LISe 


DEFINE (CC CSPREAD(LAMBDA(A) CUNPACK(CARIGET A (QUOTE PNAME)})))))) 
DEFINECCCASTERISKED(LAMBDACA) (COND( (EQUAL STAR 

(CARCSPREAD ADD) TICT FI) 0) 
DEFINE( CCF IFTHC(LAMBDA(U) (CAR{CDDDDR Ub))))) 

OEF INE CC UCSTXTHCLAMBDACU) (COND ((NULLEICDOR(CODDDR U))) NIL) 


(T CCADR{ICDDDDR U)))) 


v0) 


OEFINE(C(CCALLSUBSTS(LAMBDOA(L M U LNI(PROG(UL U2 S} 
(SETQ U1 (GMATCH M U)) 
CCONDC(NOT(NULL ULDDESETG Ul (CONS Ul NIL)DD)) 

Al (CONDC (NULL UL)(GO A2))) 
(SETG U2 (APPEND U2 (LIST(CONS(GENSUBSTICDAR UL) 

(CAAR UL) LI(GENSUBST{CDAR UL){CAAR UL} M)D)9)D) 
(SETQ Ul (CDR Ul)) 


(GO Al) 


AZ (CONDUCNOTC(NULL S))(GO A3))) 


(SETQ SN} 


(CONDO C(MEMBER(CAR U)(QUOTELEQUAL EQUAL21))(SETQ U {CONS{CADR U} NILDD) 


(T CSETQ vu (COR U)))) 
CSETQ UL (MATCH1 M U)) 


(GO Al) 


A3 (CONOC(NULL U2) (RETURN NIL))) 


(RETURNO(CONS LN U2)) 


y)0)) 


DEFINE(C((ASSOCM{LAMBDA(M U LN) (PROG(UL) 
(CONDC(MEMBER{CAR UD (QUOTE(EQUAL EQUALZ)})(SETQ U (CADR U}))) 
(SETQ UL (PMATCH M U)) 
(CONOCONULL UL) (RETURN NIL))) 


{RETURNICONS LN UL)) 


yo00) 


DEFINECCCPMATCH{LAMBDA(M U)TPROG(U1L U2 U3 S) 
CSETQ Ul (CONS{QUOTE(#PROD AL (#PROD A2 AB Ad AD) 
{GUGTE{*PROD{#PROD Al A2 A) AZ A)})) 
(SETC U1 (SUBST M (QUOTE A) Ul?) 
(SETQ U2 (RPLCE(QUOTE(AL A2 A3)) NIL)D) 
CCONOCCNOTINULL U2))(SETQ UL 
C {SETQ U2 (MATCHI1ICOR UL) 
A {COND({NULL U2)(GO B))) 
(SETQ U3 (APPEND U3 (LIST(GENSUBST(CDAR U2)(CAAR U2) UL)))) 
(SETQ U2 (CDR U2)) 


(GO A) 


Ud} 


(GENSUBSTICAR U2)(CDR U2) U1)))) 


B (COND(C(NOT(NULL S)} (RETURN U3))) 


(SETQ SN) 


(SETQ UL (CONS(CDR ULI(CAR UL))) 


(GO Cd) ))d)) 


DEFINEC (CC ROFVILAMBDA(Z FLG)(PROGIU UL) 
({COND( {EQUAL Z N)ERETURN VV2))) 


(SETQ U VV2) 


A (CONDCUNULL U) (RETURN UL)) 


((MEMBER(CAAAR U) FLG){SETQ ULCAPPENO UL (CONSI(CAR UP NIL)))) 


COLESSP(CAAAR U) Z){GO 8)) 
(T C(RETURNCAPPEND UL U}))) 
B {SETQ YU (CDR U)) 


(Go Ab ))))) 


DEFINE ( ( (CHNGW(LAMBOA(U)(PROG(U1 U2 U3 U4) 
(COND((EQUALCFIFTH(CAR UD) Z4AD) {RETURN NILD)) 


({SETQ Ul W) 


Ai (COND((NULL UL)D(RETURN NILD) 
(CEQUAL(CDAR UL)(CDR Ub){GO A2))) 
(SETQ U2 CAPPEND U2 (CONS{CAR UL) NILD)) 
(SETQ UL (COR UL)) 


(GO AL) 


A2 (SETQ UZ (CAAR U1)) 
({SETQ U4 (SIXTH U3)) 


(SETG U3 (LIST(CAR U3)D(CADR U3Z)}(CADOR U3)(CACCOR U3) Z4A)} 
CCONOCINOTINULL U4))(SETQ U3 (APPEND U3 (CONS U4 NIL}DD}0) 
CSETQ W (APPEND U2 {CONS{CONS U3 {COR UIJ(CDOR UL)))} 


(RETURN NIL} 
STOP})))) 
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ca010 
60020 
00030 
00040 
00050 
00060 
o0070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
0020G 
ao210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
ce29c 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
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00690 


NEXT Lisp 
DEF INE( CINEXT(LAMBDA(L) (PROGE) 
(COND ((NOTCEQUAL(CAAAR WI(QUOTE PNTI}2(GO B1)D) 
(SETOQ W1 CAPPEND Wl (CONS(SUBST(QUOTE REL) 
{QUOTE PNT)(CAR WH) NILDD? 
6 (SETQ W ICDR W)) 
(CONDC( NULL WITRETURN NIL)) 
(CEQUALICAAAR WP{QUOTE RELDI(GO C))) 
81 (SETQ Wl (APPEND WI (CONS(CAR W) NILDDD 
(GO B) 
C {(CONDCCEQUALICADAR W)(QUOTE DEFERI) (GO 0))) 
Cl (SETQ W (CONS{SUBSTIQUOTE PNTI( QUOTE REL)I(CAR WI}(COR WD) 
(RETURN N) 
D {(SETQ L {COAAR W)} 
(CONDE (MEMBERICADOR L)(CADDAR(GFINDICAAR LDDDD(GO C19) 
CCNULLICOR W)DCRETURN NILDD) 
(SETQ Wl (SUBST 24 (CADDR L) Wi)? 
(SETQ W CAPPEND W (CONSISUBST 24 (CADOR L)(CAR WI) NILI)) 
(SETG 24 (ADDI 24)) 
(60 6) 932d) 


DEFINE( ((CADDDAR(LAMBDA(U)(CAR(CODDAR U}1)))) 
DEFINE (( (CADDOAAR{LAMBDA(UII(CADRICODAAR U))))9) 
DEFINE ( (CADDAARILAMBDA(U)D(CAR(CODAAR UD))))) 
DEFINECC(RPLCECLAMBDACU U1} (PROG(U2 U3 U4 U5 U6) 


(SETQ U2 U) 

Al {(CONOCINULL U2){GO A6)) 

(CFREEVBLE(CAR U2})(GO A3))} 

A2 (CONDI(ON(CAR U2) Z1)(SETQ US Z1)) 
CCGNICAR U2) ZNICSETQ U5 ZN)) 
COONTCAR U2) Z2)0SETQ US 22)) 

(T CSETQ US 23))) 

(SETQ U6 (CAR U5)) 

a2C (CONOC{NULL U5)(GO A5)) 

CCEQUAL N (CAAR U5))1GO A4))) 

A2D (SETQ U5 (COR U5)) 

(60 a2c) 

a3 (CONDI (MEMBERI{CAR U2) U1L)(GO A2))) 

A3A = (SETQ U2 (CDR U2)) 

{GO Al) 

A4 (COND((MEMBER(COAR U5) UL)(GO A20)) 
((MEMBER(COAR US) U)(GO A2D)) 

CUMEMBERICOAR U5) U3)(GO A2D))) 

(SETQ U3 (CONS(CDAR US) U3)) 

{SETQ U4 (CONSCCAR U2) U4))} 

{GO A3A) 

A5 (PRINT(QUOTEINOT ENCUGH VARIABLES) )) 

(PRINT U6) 

(SETQ U (ROFLXC1)) 

(SETQ U5 (CONS(CONS NU) NILD) 

(COND((EQUAL U6 (CAR Z1))(SETQ Z1 (APPEND 21 U5})) 
(CEQUAL U6 (CAR ZNDDCSETQ ZN CAPPEND ZN U53)) 
CCEQUAL U6 (CAR Z2))(SETQ Z2 (APPEND 22 U5)))} 
(T (SETQ 23 (APPEND 23 U5)})) 

{GO A4) 

AG (CONDECINULL UZ) (RETURN NIL))) 

(RETURN(CONS U3 U4}} 3°99) 

OEFINE( ({ARGOFL(LAMBDALU L)(PROG(UL) 

(CONDCINULL LI CRETURN NIL)? 

CCCONNECTIVE(CADAR LF) (RETURNCARGOF1 U (COR LD} 

CCASTERISKED(CAOAR LI) (RETURN(ARGOF] U (COR L)) 

{(ON U 22)(GO AD) 

((CEQUAL U (CADDAR LI (RETURNICONS(CDAR L) 
(ARGOFL U (COR 09990) 

{RETURN(ARGUF2 U (COR L))) 

A (CONDI CATOMICADDAR LID(RETURN(ARGOF] U (CDR L110) 
CCEQUAL U (CAR(CADOAR LIPDCRETURNICONSICDAR L) 
{ARGOFL U (COR LDDDDDD 

(CRETURNCARGOF1 U (COR L))) 3)DDD 

DEF INE( ( (ROFWILAMBDA(M) (PROG(U) 

“(SETQ U WwW) 

A (CONOC(NULL UD CRETURN NIL)) 

COGREATERP M (CADDDAAR U}D(SETQ U (COR UD)) 
(T (RETURN UD)) 

(GO Ad 2990) 

COMPILEC({NEXT CADDDAR CADDDAAR CADDAAR RPLCE ARGOF1 ROFW)) 

STOP) 


») 
iF 
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00420 
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00730 
00740 
00750 


Pee te ee ee 


ATMS Lisp 
DEFINE( ((GENVBLE(LAMBDA(U) (PROG{U2 U3) 
(SETQ U2 23) 
A {(CONDC(NULL U2)(GO B)) 
(CCEQUAL(CAAR U2Z)(QUOTE GEN))(SETQ U3 CCONS(CDAR U2) U3)9)) 
(SETQ U2 CCOR U2)) 
{GO A) 
B (SETQ U2 CATMS U)) 
C {COND( (NULL U2) (RETURN NIL)) 
COMEMBER(CAR U2) UZ) (RETURNICAR U2))9) 
(SETQ U2 (COR U2)) 
(GO C) 2090) 
DEFINE( ((ATMS(LAMBDACU)(COND{ (NULL UD NILICCATOM UD 
(CONS U NILIICT CAPPEND(CATMSI(CAR UD) CATMSCCOR UdDDD0000) 
OEFINEC((RPLCEF{LAMBDA(U U1) (PROG(U2 U3) 
(SETQ U2 73) 
A (CONO(CEQUALICDAR Z3)(QUOTE AL)}(GO B))) 
(SETQ Z3 (COR 239) 
(GO A) 
B {(SETQ UZ {(RPLCE U U1)) 
(SETQ Z3 U2) 
{RETURN U3) 93))) 
DEFINE ( ((FREEVBLE (LAMBDALU) (PROG(UL) 
(SETQ Ul CAPPEND Z1 (APPEND 22 (APPEND 23 ZN}))) 
Al (CONOCC{NULL UL)ICRETURN NIL)) 
CCEQUAL U (CDAR ULD}(GO A2))) 
(SETQ Ul {COR U1)) 
{GO Al) 
AZ (CONOC(EQUALICAAR U1) NICRETURN T))) 
(RETURN NIL) 9090) 
DEFINEC (CC TACK(LAMBDA(L M)(PROG(UL) 
(SETQ Ul (CONS(CONS(CAR -L) MINIL)) 
Al (SETQ L (COR L)) 
(COND( (NULL LOCRETURN UL))) 
(SETQ U1 CAPPEND UL (CONSI(CONS(CAR L) M) NIL)D)? 
(GO Al} 939)? 
DEFINEC(C(MIRGEA(LAMBOA(L M)(PROG() 
AL (CONDC (NULL L) (RETURN M)) 
CCEQUAL(CAAR L)(QUOTE HEAD))(GO A2}) 
(CEQUAL(CAAR LI (QUOTE NONEI)D(GO A2d) 
(CATOM(CAAR L))(GO A3))) 
(SETQ L (CONSICONS(CAAAR LIICDAR L}) (CONS(CONS(COAAR L} 
(CDAR L)P(COR £90) 
(GO AL) 
AZ (SETQ M (APPEND M {CONS (CAR L) NILD)) 
A2 (SETQ L (COR L)) 
(GO Al) )99)) 
DEFINE(((DELPRULAMBDA(M LI(PROG(UL) 
Al (COND(U(NULL LICRETURN U1)) 
CUATOMICAR L)) (GO A2d) 
CCEQUAL M (CAAR L)}{(GO A4)) 
CCEQUAL M (CDAR LI)(GG A3)}) 
AZ (SETQ UL (APPEND U1 (CONS(CAR LL) NIL))) 
(SETQ L (COR L)) 
(GO Al) 
AZ (SETQ L (CONS(CAAR L)(COR Ld)? 
(RETURN (APPEND U1 L)) 
AS .(SETQ L (CONS(CDOAR LOICOR L))) 
(RETURN (APPEND U1 L)) 9990) 
DEFINE( ( (CONLYMEMB{LAMBDA(M L) 
(CONDCENULLICOR L)D(CONOC (EQUAL M (CAR LD) THCT F9D) 
CCEQUALICADR LO (QUOTE HEAD) I (CONDI (EQUAL M {CAR LD} TICT FDDD 
AC CEQUALICAR LI CQUOTE HEAD) ) (COND( (EQUAL M (CADR LID THIET FD) 
(T FD) abd) 
DEFINE( ((DELTF(LAMBDA(M L)(PROG(U1) 
Al (COND((EQUALICAR L) MIURETURN (APPEND U1 (COR L})))) 
(SETQ Ul (APPEND Ul (CONS {CAR L) NILD)) 
(SETQ L (COR Ld} 
(GO ALD 99D9) 
COMPILE((FREEVBLE TACK MIRGEA DELPR ONLYMEMB DELTF)) 
STOP) 
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GFIND LISP 
OEFINE( (CCANDEND(LAMBOACM U)(PROG(U1) 
Al (COND( (NULL U)(RETURN ND) 
(CATOM(CAR U)2(GG A2))) 
ALA (SETQ U {COR U)) 

(GO Al) 

AZ (CONDI CEQUALICAR U)(QUOTE NONE))(GO A1A))) 

(SETQ UL (GFIND(CAR U))) 

(COND((EQUAL(CADR UL)(QUOTE AND})(GO A3})) 

(GO AlA) 

AZ {(CONOC (MEMBER M (ANOTERMS({CADDAR UL)D) (RETURN NIL)D) 

(GO ALAD $997) 

DEFINE ({ ANDTERMS{( LAMBDA(U) (PROG(UL U2) 

(CONDUC CATOM(CAR U})D{GO BID) 

CSETQ UL (GFIND{CAAR U))) 

(CONDI (EQUALICADR UL) (QUOTE ANDI) (SETQ U2 (CANDTERMS(CAODAR UL)))) 
(T (SETQ U2 (CONS{CAAR U) NILDID} 

A2 (SETQ UL (GFINDICDAR U))) 
(CONDI (EQUAL(CADR UL) (QUOTE AND})(GO A3))) 
CRETURNOICONS(CDAR U) U2)) ; . 
A3 -(RETURNCAPPEND(ANDTERMS(CADDAR U1)) U2)) 
B (SETQ Ul (GFIND(CAR UD)? | 
CCOND(CEQUALICADR UL) (QUOTE AND) D(RETURN(ANOTERMS(CADDAR U1))})) 
(RETURN(CONS(CAR U) NILDD 909) 
DEFINE ( ((GFIND(LAMBDA(M) (PROG(U) 
(SETQ U (APPEND W1 W)) 
Al (COND({ (NULL U) (RETURN NIL)) 
(CATOM M){GO B}) 
(CCEQUAL M (CDAR U)P(RETURN(CAR U)))) 
A2 (SETQ U {COR U)) 

(GO Al) 

B (COND(CEQUAL M (CADDDAAR U)ICRETURNICAR UDD)) 

(GO A2) 3999) 

COMPILE( (ANDEND ANOTERMS GFIND)) 
DEFINE ( (CALLMATCHILILAMBDA(U M){PROG(U1 U3) 

{COND((EQUAL{CAR UN(QUOTE AND))(SETQ U (CONS U (ANDARGS U)))) 
{T (SETQ U (CONS U NIL}))) 

B {(COND(C(NULL UDCRETURN U1})) 

{SETQ U3 (GMATCHICAR U) M)) 

(COND({NOT(NULL U3))(SETQ U1 CAPPEND U1 (CONS U3 NILDDD)) 

(SETQ U (CDR U)) 

(GO BY 2})9) 

DEFINE(((GMEMB(LAMBDACM U) 
(CONDE (NULL U) F) 
(CATOMICAR UDI (CONOC (EQUAL M {CAR U)) T) 
(T (GMEMB M (CDR UD)))) 
{T (CONOCCEQUAL. M {CAAR UD) T) 
({EQUAL M (CDAR UD) T) 
(T (GMEMB M (COR UP9DD)) 19D) 
DEF INE( (CRPLCLOELAMBDACU)(PROG(UL U2 U3) 
AO (CONDC(NULE UD(GO 8))) 
{SETQ U3 (APPENO Z1 (APPEND Z2 (APPEND 23 ZN}D)}} 
AL (COND(LEQUAL(CAR UD(CDAR U3}) (GO. A317) 

(SETQ U3 (CDR U3)) 

{GG Al} 

A3 (COND((CEQUAL(CAAR U3)(QUOTE RES)1 (60 AG))) 

(SETQ UZ (GENSYM)) 

(SETQ UL (CONS U3 U1?) 

(SETQ U2 (CONS(CAR U) U2)) 

{CONDCCONICAR U) ZID{SETQ 21 (CONS(CONSI(QUOTE RES) U3} 21))) 
CLON(CAR UPZNICSETQ ZN (CONS(CONS(QUOTE RES) U3} ZN))) 
COONICAR U) Z2)(SETQ Z2 (CONS(CONS(QUOTE RES) U3) 22))) 
(T CSETQ 23 4CONS(CONS(QUOTE RES) U3) 23990) 

A& (SETQ U (CDR U)) ; : 

{GO AO) 

B (CONOC( NULL U1) (RETURN NIL))) 

(RETURN(CONS UL U2)) 99D)? 

COMPILE((ALLMATCH1 GMEMB RPLC1)) 
STOP) 
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DEFNS DATA 


¢ 
((CSSUBGROUP A B)ICISNGRMAL A 8B C)) 


CUMEMBER Al AD) CONORMAL A B CD) CLSEMIGROUP AD)IC(ASSOC ADD( (ABELIAN A 8)) 


(CUSUBSET A 8)) 

(CUSUBGROUP A B) IMPLEES(AND(MEMBER Al A) (MEMBER A2 A)) 
(ANDUMEMBER(*#PROD Al A2 B) A) (MEMBER(@INVERSE Az B) A))) 
CUSUBMONOID AB) IMPLIESCANOC( MEMBER Al A) (MEMBER A2 A)) 
(MEMBER(#PROD Al A2 6) AD) 

CUHOMOMORPHISM(F1 A 8)) IMPLIES(AND(MEMBER Al A) 

(MEMBER AZ AD) CAND(MEMBER(F1 A 6 AL) 8) CEQUAL2 

(FL AB (*#PROD Al A2 AD} (#PRODIF1] A 6B ALD(FL A B AZ) 6)))) 
(CHOMOMFI(F1 A 8)) IMPLIESTANO( MEMBER Al A) (MEMBER AZ AD) 
CFEQUAL(FL AB (#PROO Al A2 A})D(#PRODIFL A 6 Al) 

(Fl A 8 A2) BdD) 

CCONTO(F1 A B)) IMPLIES{MEMBER Al BDL EXISTS AZ 

CANOC MEMBER AZ ADTEQUAL(F1 A B A2) ALDDD) 

CCINVERSE Al A2 Ad EQUAL(ePROD Al A2 AD(eIDENTITY A?) 

( (SHASS©COMPSSERIES A) EXESTS NL (EXISTS(6 N2} 
(COMPeSERIES((B NZ) NID ADD) 

CCONETCONE(F1 A BD) IMPLIESCAND(AND(MEMSER Al AD 

(MEMBER AZ A) ) (EQUAL ( #PRODIGINVERSE(FIL A 6 Al} B) 

(Fl AB A2) BICHIDENTITY B31) CEQUAL(2PROO 

(#INVERSE Al A)-A2 ADCEIDENTITY ADD) 

{(RCOSET A Al B COPC(LCOSET A Al BCI) 

mu 

((USSUBGROUP A B))C(SNORMAL A B CD) CCNULLDD 

CLOFININT A ND) ANDCEQUAL(@FININT A 1)¢A 15) 
CEQUAL(@FININT A CeSUCCESSOR N3))(@INTCOFININT A N3) 

(A C#SUCCESSOR N3}99)) 

COOSEQUTAL ND ADDECHEXP AL N ADD : 

CC@SUCCESSOR ND) : : 

(CMEMBER Al AD}CL#PROD Ab A2 ADDI CASSOC AD} 

CCIMAGE A (Fl B Cd) IMPLIES2ZCMEMBER Al AD(EXISTS A2 
(ANOC( MEMBER A2 B)CSEQUAL(F1 B C AZ) Al)D}D) 
COCHOMOMORPHISM(FL A &)) IMPLIESEMEMBER Al A} 

(MEMBER(F1l AB AL) BD) 

CCOINVERSE Al AD) CCOITOENTITY A)) 

C{GROUP A) ANDCIMPLIES(AND{ MEMBER Al A) 

(MEMBER AZ A))(MEMBER(@PROD Al A2 A) AD) (AND 

(ASSOC AD CANDIMEMBER(@IOENTITY A) A) 

CIMPLIES(MEMBER Al A) (MEMBER(®INVERSE Al A) ADDD)) 
CUCONJUGATE A AL 8 C) AND( MEMBER Al C) 

CIMPLIES2(MEMBER AZ A)(EXISTS AZ (AND(MEMBER A3 B) 

(EQUAL AZ (ePROO(ePROD Al A3 CILCINVERSE Al C) C)D)9D) 
(CSUBGROUP A B) ANDCIMPLIES(MEMBER Al A) 

(MEMBER Al 6))CANOCIMPLIES(AND( MEMBER AL A) 

(MEMBER A2 A) (MEMBER (ePROD Al AZ B) AD) 
CANOLAHEMBER(OLDENTITY 8) ADLIMPLIES(MEMBER Al A) 
(MEMBER (@ INVERSE Al 8) AD)))) 

CORERNEL A (Fl 8 CD) 

IMPLIESZ(MEMBER Al A) (EQUALIF1] 8 C AL} COIOENTITY C))) 
CCABELIAN A 6) IMPLIESCANDI(MEMBER Al A) (MEMBER A2 Ad) 
CEQUAL(©PROD Al A2 8)(*#PROD A2 Al BD)) 

CUSEMIGROUP A) ANOCIMPLIES(AND(MEMBER Al A) 

(MEMBER A2 A))(NEMBER(@PROO Al A2 A) ADD CASSOC Ad) 
CUCENTER A 8) ANOCIMPLIESIMEMBER Al AD (MEMBER Al B)} 
CIMPLIESZ( MEMBER Al ADCIMPLIES( MEMBER A2 8) 

CEQUAL(#PROO Al A2 8)(#PROD AZ Al B))})) 

CUINTERSECTION A 6 C? IMPLIESZUMEMBER Al A) (AND 

(MEMBER Al B)( MEMBER Al C1) ; : 

CCNORMAL A 8 C) IMPLIESCANDIMENBER Al BI( MEMBER AZ AD) 
(MEMBER(ePROD(ePROD Al A2 CIC #INVERSE Al Cd Cd AD) 
(CCOMMUTATOR Al AZ A3 A) EQUAL2 Al (#PROD(ePROD( «PROD 
CeINVERSE A2 AD(S®INVERSE A3 A} A) A2 A) AZ ADD 
CONORMALIZER A BC) IMPLIESZ( MEMBER Al ADCIMPLIES 
(MEMBER A3 BI(MEMBER(*PROO(ePROD Al A3 C} 

(*INVERSE Al C) Cd 639) 

COREMAGE A B (FL C O}) IMPLIES2Z(MEMBER Al AD(EXISTS A2 
(CANOCMEMBER A2 BI{SEQUALIF1 C D A2) AL}D)) 
(CEPIMORPHISM(F1 A Bd) ANOCIMPLIES( MEMBER Al B)(EXISTS AZ (CANO 
(MEMBER AZ A)(EQUAL2Z(F1 A 6 AZ) ALIDDICEMPLIES(MEMBER AZ A) 
(MEMBER(F1l AB A3) BD)? 

CCMGNOMORPHISM{FL A 6)) ANO(ONEONE(F1 A B)) 

CIMPLIES( MEMBER Al A) (MEMNGER(F1 A B Al) 8))) 

CCRCOSET A Al BC) ANOC MEMBER Al C)CIMPLIESZ(MEMBER A2 A) 
(EXISTS A3 {AND(MEMBER A3 BI(SEQUAL(®PROD AZ AL Cd AZ)DI9)) 
(CLCOSET A Al 8 C) ANO( MEMBER Al C)CIMPLIESZ(MEMBER A2 A) 
(EXISTS A3 CANDUMEMBER A3 B)(SEQUAL(#PROO Al AZ Cd AZDDDD) 
COSETENV A BC) IMPLEES2(MEMBER Al A) 

(EXISTS A2 ,(AND(MEMBER AZ BYUSEQUAL(©INVERSE A2 C) A1D})) 
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00400 
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00440 
00450 
00460 
00470 
00480 
00490 
00500 
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00560 
00570 
00580 
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00600 
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00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 


(CFACTORGROUP A B D) ANO{AND 

CIMPLIESZ(MEMBER(*LCOSET Al BO) ANC MEMBER Al DD) 
CIMPLIES(MEMBER Al B)CEQUAL(®LCOSET Al 8 0) 

C#IDENTITY ADIDICEMPLIES(MEMBER Al A) 

(EXISTS A2 CAND(MEMBER A2 DICEQUAL Al 

(*#LCOSET AZ 8B OF1993) 

CCUNITSET A Al) [MPLIES2(MEMBER A2 AD USEQUAL A2 Al)? 
CCINVIMAGE AB (Fl C D)) IMPLIESZ(MEMBER Al AD (MEMBERIFL C D AL) 8)) 
((SUBSET A 8) IMPLIES( MEMBER Al AD(MEMBER Al B)) 
CCISOMORPHISH(FL A B)) ANOCANO(ONEONE(F2 A 8)) 

CEMPLIES(MEMBEA Al BICEXISTS A2 CAND 

(MEMBER AZ A)CEQUALZ(F1 A B AZ) ALDD)2)CIMPLIES(MEMBER A3 A) 
(MEMBER(F) AB A3) BID) 

CCSUBFGRP A 6 C DO) AND 

CIMPLIES2Z(MEMBER(*®LCOSET Al 6 D0) AD( MEMBER Al C)) 
CIMPLIES(MEMBER Al A} 

(EXISTS A2 {ANO(MEMBER A2 C)(EQUAL Al 

(eLCOSET AZ 8 0DDDD)) 

C(COMPOSERIES(CA NL) N2) 8) AND ( [MPLIES (EQUAL 6 (UNI TSET 
(EDENTITY 8))) (COMPeSERTES((B NID 1) 8)) CIMPLIESCAND( 
SHAS@MAXSNORMSSUB BI{OEFER(EXISTS N4& (EXISTS(C N5) (COMPeSERIES 
CIC NS) N4) (OMAXONORMOSUB B)))1)) 

CANDUCOMP*SERIES((O N3) N6) 8) (ANDI AND(EACH(EQUALID N3)(C N5)) 
(ePREDECESSOR N6))(EQUALID NO} B)) (EQUAL( PREDECESSOR NO) N4&))))? 
(CONETOONE(F1 A BD) IMPLIES(FEQUALIFL A 6 Al) 

CFL AB A2)P(EQUAL Al A2}) 

CCINVPNT A Al (Fl B CD) ANDCIMPLIES( MEMBER A2 A) 

CEQUALIFL B.C A2) ALDI CIMPLIES(EQUALIF1 6 C A2) 

ALI(MEKBER AZ AD}? 

CCCENTRAL A BC) ANOCIMPLIES(MEMBER Al AD{ MEMBER Al C) 
DCIMPLIESZ(MEMBER Al ADCIMPLIES( MEMBER A2 B) 

CEQUALT*PROD Al A2 C}(*PROD AZ Al C)D)9) 


ut 
CCHMPROCF1] A BD) (FL A B CeIDENTITY ADD COIDENTITY B) 
(Fl A 8 C#INVERSE Al AD) (OINVERSE(F1 AB Al} 8) 
(Fl AB (#PROD AL AZ A))(#PRODIF]L AB AL) 
(Fl A 68 A2) Bd) 
CCFGPRP A B ODC@LCOSET(CINVERSE Al 0) 8 D) 
CoINVERSE(@LCOSET Al 8 0) ADL@LCOSET(ePROO 
Al A2 0) 8 D)(ePROD{*LCOSET Al B DILeLCOSET AZ BD) AD) 
im! 
CUSUBSET A BICCA BDDTA BD) 
(CFACTORGROUP AB DIC(A(B D)D(8 0?) 
CCHOMOMORPHISMCFL A Bd9CCAD(BDD) 


(CEPIMORPHISMCFL A BD) CCAD(BDD) 
COMONOMORPHISMIFL A BD)CCAD(BDD) 

CC TSOMORPHISMIF1 A 890(0AI0BD0) 

CCSUBGROUP A BD(CA BDICA Bd) 

CCIMAGE A (FL B CPOCTA COPA CD) 

CUKERNEL A CFL B C)DCCA BDDCA 8)? 

COREMAGE AB (Fl C DIDC(B C)CA 0908 CPLA OD) 
CCENVIMAGE A 6B CFL C DDDCTA C08 DIDTA CHB OD? 
(CSUBFGRP A BC DICCAN(S C 0N9(B.CH(B OVIC OD) 
CCABELIAN A BIC(A B8))CA Bd) : 
({CENTER A BDCTA BIICA BD} 

CUINTERSECTION AB CHC(A B CIDCA BCA CH} 
CONORMAL AB CO((A B CIDCA BPTA CHIB Cd) 
CONORMALIZER A B COCCA B CdPCA CDCB Cd? 
CCCONJUGATE A Al 6 CICA B CIDCA CH{B CHD 
CORCOSET A Al B CHCKA 8B CDOCA Cd(8 Cd? 

CCLCOSET A Al 6 C)MCA BCDDTA C2(B CP? 

(CSETINV AB CHULA 6 C)ICA CHUB CH) 

CCINVPNT A AL (FL 6B CIDCTA BIDTA BD) 

COCENTRAL AB CH(LA B CIITA CHB Cd) 
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00810 
00820 


' 00830 


00840 
008s0 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
60980 
00990 


~ 02000 


01010 
01020 
61030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
02120 
01130 
01140 
01150 
01160 


01170 © 
* 01180 


01190 
61200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01360 
01390 
01400 
01410 
01420 
01430 
01440 
01450 


ane ae 


CQMPIL Lise 
COMMON( (Wl W 24 N QFl VV1 V¥2 QMS CX)) 
LOAD((PUT2)) 
COMMON((QM1 QM2 QM3 QM4 QM6é ZN)}) 
COMMON((Z1 Z2 23 Q QF2 XX QLi QL2)) 
COMMONC (IX Y Z6 FQM2 FQM3 FQM4 CL Z4A Z4B CX) LON)) 
LOAD( (SOLVEX)) 
LOAOC(VERTFY)) 
LOAD( (PUTONL)) 
COMPILE((PUTONL)) 
LOAD((GTFRM)) 
COMPILEC(GTFERM)) 
LOAO({HFM)) 
COMPILE((HEFM)) 
LOAOU(GMATCH)) 
LOAO((NEXT}) 
LOAD((ROFV))} 
COMPILEC((NOLOOK SPREAD ASTERISKEO FIFTH SIXTH)} 
COMPILE((ALLSUBSTS ASSOCM PMHATCH ROFV CHNGW)) 
LOAD((CSCNX)) 
COMPILE((SCNX)) 
LOAD(( INVM)) 
COMPILE((INVM2 SIFT)) 
COMMON( (SUP)) 
LOAO((VBLES)) 
COMPILE((SUPXEC SUPSUB)) 
LOAD( (RPTSUB)) 
LOAD((GFIND)) 
LOAD(C(MATCH)) 
LOAD CATMS)) 
COMPILE( {ATMS GENVBLE RPLCEF)) 
LOAD(CHOMOMF)} 
COMPILE((HOMOMF ONLY)) 
LOADC (PUTON2)) 
LGAD( (MODEL )) 
COMPILE((MODELMAKE CHECKMODEL)) 
COMPILE( (MEET SWMEMB NOWWHICH GENSET)) 
LOAD((SLVX))} 
COMPILE((SLVX)) 
LOAD{ ( MONOMF ) > 
COMPILE( (MONOMF)) 
LOAD(CWLOFN)) 
COMPILE( (COMPOSITION) ) 
EXCISE(*#T#) 
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90010 
00020 
06030 
00046 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 


00430 


Pansies bee 1 ek Soe tiie ad ¢ 


1) 


2) 


3) 


4) 


5) 


6) 


7) 


8) 


9) 
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INDEX 


(Underlined references indicate definitions) 


advice-taker, 7, 101 ff, 127 ff 
argument (of object or statement), 
16, 17 
backtracking, 10, 68, 73 
"built-in" axioms, 33, 56 ££ 
“change of variables", 50 
connective, 14 
constant, 13, 20 
logical constant, 14 
syntactic constant, 15 
construction, 77, 86, 88, 113 
definitions, 15, 19, 24, 25 ff 
detachment, 41, 58, 107, 109, 112 
EQUAL, 14, 32, 38, 44, 87 
EQUAL2, 14 
existential generalization, 47 
existential specification, 45, 47 


EXISTS, 15 
“explore consequences", 25 ff, 34, 
106 


FEQUAL, 14, 50, 80 

GENFCN, 50, 81 

head (of tree), 21 

HOMOMF, 26, 50, 105 

IMPLIES2, 14 

ISOLVE, 50 ff, 64, 81 ff, 105 

(see ISOLVE) 

lemma, 34, 36, 37, 41 ff, 72 ff, 
91 

LISP, 13 

logical class, 21, 34, 59, 107 

logical constant, 14 

matching, 55, 57, 124 

mathematical induction, 94, 96 ff 


isomorphism, 
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MODEL heuristic, 44, 45, 46, 61 ff, 
81, 90, 110: 
necessary condition, 27, (also see 
definitions) 
object, 15 
compound object, 16 
Project MAC, 13, 23, 28 
progress, 10, 29, 34, 41, 58 ff, 
112 ££ 
heuristic A, 58 ff 
heuristic B, 59, 87, 107, 112 
property list, 19 


of a condition or definition, 19 


of a table I entry, 21, 30 
of a table II entry, 21 ff, 30 
PNT, 23 
PUTON1, 45 
PUTON2, 46 
quantifier, 15, 20, 48 


reduction, 21 


related substitution, 33, 34, 39, 52, 


73, 74, 75 

scanning, 33 ff 

SCANW, 26, 34 ff, 49, 50, 54 

SCNX, 37, 49 

semantic model, 61 ff, 126 ff 

SLVX, 46, 49, 91 

SOLVEX, 26, 48 ff, 90 

statement, 17 

status, 23 

subordinate tree, 23, 37, 42 ff, 
61 ££, 72 ££ 

subscript, 94 ff 

sufficient condition, 15, 19, 24, 
25 ff 


symbol, 13 

syntactic constant, 15 

table I, 19, 21, 25 ff 

table II, 19, 21 ff, 25 ff 

table entry, 19 

term, 15 
asterisked term, 15, 16, 18, 53, 
91, 92n 
non-asterisked term, 15, 17, 18, 
53, 91, 92n 

time, 64, 81, 100, 102 

tree, 21 ff, 47 

type, 13 

universal specification, 28 

variable, 13, 20 

verification, 47 ff 

working backward, 8, 21, 25, 28, 122, 
124 


working forward, 42, 53, 89 
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